3月9
1.如何用Asp判断你的网站的虚拟物理路径
答:使用Mappath方法
<p align=center><font size=4 face=Arial><b> The Physical path to this virtual website is: </b></font> <font color=#FF0000 size=6 face=Arial> <%= Server.MapPath()%> </font></p>
2.我如何知道使用者所用的浏览器?
答:使用the Request object方法
<%
strBrowser = Request.ServerVariables(HTTP_USER_AGENT)
If InStr(strBrowser, "MSIE") <> 0 Then
Response.redirect("ForMSIEOnly.htm")
Else
Response.redirect("ForAll.htm")
End If
%>
3.如何计算每天的平均反复访问人数
答:解决方法
<%
startdate = DateDiff(d, Now, 01 / 01 / 1990)
If strdate<0 Then startdate = startdate * -1
avgvpd = Int((usercnt) / startdate)
%>
显示结果
<% response.write(avgvpd) %>
that is it.this page have been viewed since November 10,1998
4.如何显示随机图象
<%
Dim p, ppic, dpic
ppic = 12
Randomize
p = Int((ppic * Rnd) + 1)
dpic = graphix / randompics / &p&.gif
%>
显示
<img src=<%=dpic%>>
5.如何回到先前的页面
答:
<a href=<%=request.serverVariables(Http_REFERER)%>>preivous page</a>
或用图片如:
<img src=arrowback.gif alt=<%=request.serverVariables(HTTP_REFERER)%>>
6.如何确定对方的IP地址
答:
<%=Request.serverVariables(REMOTE_ADDR)%>
7.如何链结到一副图片上
答:
<%@Languages=vbscript %>
<%
response.expires = 0
strimagename = "graphix/errors/erroriamge.gif"
response.redirect(strimagename)
%>
8.强迫输入密码对话框
答:把这句话放载页面的开头
<%
response.status = 401 ' Not Authorized
response.End
%>
9.如何传递变量从一页到另一页
答:用 HIDDEN 类型来传递变量
<Form method = post action = "mynextpage.asp">
<%
For Each Item in request.Form
%>
<input namee=<%=item%> type=HIDDEN value=<%=server.HTMLEncode(Request.form(item)) %>>
<% next %>
</form>
10.为何我在 asp 程序内使用 msgbox,程序出错说没有权限
答:由于 asp 是服务器运行的,如果可以在服务器显示一个对话框,那么你只好等有人按了确定之后,你的程序才能继续执行,而一般服务器不会有人守着,所以微软不得不禁止这个函数,并胡乱告诉你 (:) 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框,as follows:
<% yourVar="测试对话框"%>
<script language = 'javascript'>
alert(<% = yourvar%>);
</script>
11.有没有办法保护自己的源代码,不给人看到
答:可以去下载一个微软的Windows script Encoder,它可以对asp的脚本和客户端javascript/vbscript脚本进行加密。。。不过客户端加密后,只有ie5才能执行,服务器端脚本加密后,只有服务器上安装有script engine 5(装一个ie5就有了)才能执行。
12.怎样才能将 query string 从一个 asp 文件传送到另一个?
答:前者文件加入下句:
<%
Response.Redirect "second.asp?"&Request.ServerVariables(QUERY_STRING)
%>
最后编辑: tommyhu 编辑于2009/03/09 13:49
答:使用Mappath方法
<p align=center><font size=4 face=Arial><b> The Physical path to this virtual website is: </b></font> <font color=#FF0000 size=6 face=Arial> <%= Server.MapPath()%> </font></p>
2.我如何知道使用者所用的浏览器?
答:使用the Request object方法
<%
strBrowser = Request.ServerVariables(HTTP_USER_AGENT)
If InStr(strBrowser, "MSIE") <> 0 Then
Response.redirect("ForMSIEOnly.htm")
Else
Response.redirect("ForAll.htm")
End If
%>
3.如何计算每天的平均反复访问人数
答:解决方法
<%
startdate = DateDiff(d, Now, 01 / 01 / 1990)
If strdate<0 Then startdate = startdate * -1
avgvpd = Int((usercnt) / startdate)
%>
显示结果
<% response.write(avgvpd) %>
that is it.this page have been viewed since November 10,1998
4.如何显示随机图象
<%
Dim p, ppic, dpic
ppic = 12
Randomize
p = Int((ppic * Rnd) + 1)
dpic = graphix / randompics / &p&.gif
%>
显示
<img src=<%=dpic%>>
5.如何回到先前的页面
答:
<a href=<%=request.serverVariables(Http_REFERER)%>>preivous page</a>
或用图片如:
<img src=arrowback.gif alt=<%=request.serverVariables(HTTP_REFERER)%>>
6.如何确定对方的IP地址
答:
<%=Request.serverVariables(REMOTE_ADDR)%>
7.如何链结到一副图片上
答:
<%@Languages=vbscript %>
<%
response.expires = 0
strimagename = "graphix/errors/erroriamge.gif"
response.redirect(strimagename)
%>
8.强迫输入密码对话框
答:把这句话放载页面的开头
<%
response.status = 401 ' Not Authorized
response.End
%>
9.如何传递变量从一页到另一页
答:用 HIDDEN 类型来传递变量
<Form method = post action = "mynextpage.asp">
<%
For Each Item in request.Form
%>
<input namee=<%=item%> type=HIDDEN value=<%=server.HTMLEncode(Request.form(item)) %>>
<% next %>
</form>
10.为何我在 asp 程序内使用 msgbox,程序出错说没有权限
答:由于 asp 是服务器运行的,如果可以在服务器显示一个对话框,那么你只好等有人按了确定之后,你的程序才能继续执行,而一般服务器不会有人守着,所以微软不得不禁止这个函数,并胡乱告诉你 (:) 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框,as follows:
<% yourVar="测试对话框"%>
<script language = 'javascript'>
alert(<% = yourvar%>);
</script>
11.有没有办法保护自己的源代码,不给人看到
答:可以去下载一个微软的Windows script Encoder,它可以对asp的脚本和客户端javascript/vbscript脚本进行加密。。。不过客户端加密后,只有ie5才能执行,服务器端脚本加密后,只有服务器上安装有script engine 5(装一个ie5就有了)才能执行。
12.怎样才能将 query string 从一个 asp 文件传送到另一个?
答:前者文件加入下句:
<%
Response.Redirect "second.asp?"&Request.ServerVariables(QUERY_STRING)
%>
最后编辑: tommyhu 编辑于2009/03/09 13:49

ASP实现千万级数据分页的存储过程!
用ASP生成Chart






版本 1
请参阅
--------------------------------------------------------------------------------
描述
返回指示变量子类型的值。
语法
VarType(varname)
varname 参数可以是任何变量。
返回值
VarType 函数返回下列值:
常数 值 描述
vbEmpty 0 Empty(未初始化)
vbNull 1 Null(无有效数据)
vbInteger 2 整数
vbLong 3 长整数
vbSingle 4 单精度浮点数
vbDouble 5 双精度浮点数
vbCurrency 6 货币
vbDate 7 日期
vbString 8 字符串
vbObject 9 Automation 对象
vbError 10 错误
vbBoolean 11 Boolean
vbVariant 12 Variant(只和变量数组一起使用)
vbDataObject 13 数据访问对象
vbByte 17 字节
vbArray 8192 数组
--------------------------------------------------------------------------------
注意 这些常数是由 VBScript 指定的。所以,这些名称可在代码中随处使用,以代替实际值。