ASP经典代码列举实例 - TOMMYHU - 专注互联网开发及运营技术,提供相关资料及软件下载,奇趣网络时事评论!
Mar 9

ASP经典代码列举实例 不指定

tommyhu , 13:48 , ASP , Comments(1) , Trackbacks(0) , Reads(7064) , Via Original Large | Medium | Small
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 / &amp;p&amp;.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?"&amp;Request.ServerVariables(QUERY_STRING)
%>





▲返回顶部
Last modified by tommyhu on2009/03/09 13:49

互联网开发网友 Email Homepage
2009/12/14 09:45
VarType   函数     语言参考    
  版本   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   指定的。所以,这些名称可在代码中随处使用,以代替实际值。
Pages: 1/1 First page 1 Final page
Add a comment

Nickname

emotemotemotemotemotemotemotemotemotemotemotemotemotemotemotemot