-
二级域名的解析指向ASP源码
Aug022006懂程序的人一看就明白怎么实现了
呵呵!真简单<%@ LANGUAGE = VBScript.Encode %>
阅读全文
<% Server_Name = Request.ServerVariables("SERVER_NAME") For I=1 To Len(Server_Name) If Mid(Server_Name,i,1)="." Then Exit For USER = USER & Mid(Server_Name,i,1) Next Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("data/url.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") sql ="Select * From url where name=“"&user&"“" rs.open sql,conn,1,2 if rs.eof or rs.bof then response.write ("错误:找不到该页") rs.close conn.close set rs=nothing set conn=nothing Else url=rs("zurl") rs.close conn.close set rs=nothing set conn=nothing %>
">
<%End If%>抢沙发
-
ASP中页面限制权限访问的几种方法
Aug022006
-
Asp降龙十九掌
Aug022006
-
支持中文的无组件文件上传
Aug022006
-
如何用asp编写网站统计系统
Aug022006
-
计算文件下载时间
Aug022006[code] = 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24 If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60 If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60 If intYears 0 Then If intYears = 1 Then AppendStr ...
阅读全文
-
aspemail组件的应用
Aug022006
-
使用ASP重启服务器
Aug022006
-
用纯ASP代码实现图片上传
Aug022006
-
保护ASP脚本源代码
Aug022006