安装了IIS还是无法打开asp解决办法
相信我的,只有我才真正地找过答案,其它都是乱抄的,实能解决到你的问题,前个月我还在苦找答案,也已试验过N次,最后成功了,网上也有改那个什么帐户的,那个实在太难了.
按我的方法,前提是一,系统是XP,其它系统不敢包.二,你没有做过其它设置.
主要是帐户权限问题.
打开“管理工具”->“组件服务”->“计算机”->“我的电脑”－>“COM+应用程序”,(看A) 然后在右边框中，右击“IIS Out-Of-Process Pooled Applications”，(看B)选择属性，点“标识”选项卡，选择“系统帐户”，然后确定，在“服务”(不是刚才那个,打开管理工具-服务)中重启IIS即可。
A.如打开“COM+应用程序”时出现错误，错误代码：“8004E00F-COM+无法与Microsoft分布式事务协调程序 ”
解决办法：在"开始"-“运行“窗口中输入，msdtc -resetlog (注意-前面有一空格)即可。
B.在“COM+应用程序”右框的组件中“IIS Out-Of-Process Pooled Applications”找不到解决办法：
开始菜单->运行->cmd打开命令提示窗口。
输入cd %windir%/system32/inetsrv切换到了system32下inetsrv目录。
再输入rundll32 wamreg.dll, CreateIISPackage。
注意:必须准确键入“CreateIISPackage”，它区分大小写。
再输入regsvr32 asptxn.dll。
关闭"组件服务"并重新打开"组件服务"。
重启IIS:"管理工具"-"服务"找到IIS Admin右击选择"重新启动".
最后打开“管理工具”->“internet信息服务”找到“默认网站”然后右击它，
选择属性，在“TCP地址”处选择本机的IP地址。再打开“目录安全性”->“编辑
”弹出“身份验证方法对话框”
这里比较麻烦点。下面说起来有点难，如果上面都对，那100%是下面的问题，如
果这里设置不到，打开网页时，将弹出一个对话框确认后出现“未登陆，无权访
问”，又或者显示那一行出现错误等。
点击“浏览”->“高级”->“立即查找”在下框选择一个能用的用户(如当前用户
)，然后确定。
在“匿名访问”处打勾，“允许IIS控制密码”不打勾，密码(你刚才选择的用户
的密码，无密码为空，确定密码也为空)。"
相关文档：
禁止站外提交表单的asp代码如下：
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存 ......
本文链接：http://www.oversteper.com/wprogram/asp/826.html
ASP 定义常量的方法
常量：用一种名称代替数字和字符串，且其值保持一直不变。
在 VBscript 中，可以用 const 语句来定义常量。
常量分数字型和字符串型。
表示日期的常量写在两个 # 之间。
示例：
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAG ......
本文链接：http://www.oversteper.com/wprogram/asp/827.html
条件语句之 if ... then ... else 语句
用来判断条件是 true 或 false ，并根据判断结果来执行指定的语句，通常条件是用比较运算符对值或变量进行比较来表达。
if ... then ... else 可以根据需要进行嵌套使用，可以写成 elseif 。
示例：
以下� ......
<%
'1、创建EXCEL对像
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
'2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = ob ......
