
<%
function ChkPost()
dim server_v1,server_v2
chkpost=false
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr

为了防止恶意注册,加一个验证码是个好的解决办法:
方法如下:
一、新建一个GetCode.asp文件。asp源码如下。复制粘贴保存,这个是验证码生成程序。随机生成数字验证码。
<%

<%
if request("action")="do" then
dim conn,connstring
fname="index1.txt"
nr1=request("name")
nr2=request("pass")

一个网站空间,但是却可以实现多个域名的访问的一段ASP代码:
以下为引用的内容:
<%
if Request.ServerVariables("SERVER_NAME")="www.abc.com" then
response

要使用request对象的ServerVariables属性,通过它来获得环境变量的值。使用的语法为:Request.ServerVariables(variable),“variable”表示环境变量的名称,如服务器主机名称、Web服务器软件名等等,

用户登录验证脚本,Chkpwd.asp
以下为引用的内容:
<%
'=======用户登录验证脚本=======
'如果尚未定义Passed对象,则将其定义为false,表示没有通过验证
If IsEmpty(Session(

以下为引用的内容:
'把pattern 又修改了下
'code要检测的代码
'http://www.knowsky.com/asp.asp
'leixing html 或者ubb
'nopic 代码没有图片时默认值
function toppic(cod

自动获取当前页面URL的ASP函数:
<%
Function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString
ServerName = Request.ServerVariables

为了让客户端更快速的访问网站,通常一个大型网站会有许多分站,所以让客户端访问相应的分站,会让客户有更好的体验,这就要用到根据客户端IP地址转向不同的分站。这里面要用到IP数据库,可到网上去下载。IP数据库在
asp+access用户登录代码,其中
huiyuan.mdb数据库名
pUser213 表名
y_username用户名字段,y_password密码字段.
login.htm页面
<head>
<meta http-equiv="Con