hkqueren.asp

来自「多用户个人主页系统(ASP)」· ASP 代码 · 共 38 行

<%
response.buffer=true
response.expires=0%>
<!--#include file="./includes/formdata.inc"-->
<!--#include file="./includes/dataconn.inc"-->
<!--#include file="./includes/setup.asp"-->
<%
hkip=request.ServerVariables("REMOTE_ADDR")

name = trim(request.form("name"))
username = trim(request.form("username"))
hktype = trim(request.form("hktype"))
money = trim(request.form("money"))
hkdate = trim(request.form("hkdate"))
usefor = trim(request.form("usefor"))
bz = request.form("bz")
if bz="" then
bz="暂无"
end if
sql = "select * from hkdan where username='"& username &"' and cstr(tjdate)='" & date() &"'"
set rstemp =conntemp.execute(sql)
if rstemp.eof=false then
%>
<script language="VBScript">
msgbox "对不起，每个用户每天只允许提交一次"&chr(10)&chr(13)&chr(10)&chr(13)&"如果您有任何疑问，可以联系我们的管理人员．",vbinformation,"汇款确认"
window.open "vip.asp","_self"
</script>
<%
response.end()
end if

sql = "Insert into hkdan (name,username,hktype,hkmoney,hkdate,usefor,bz,hkip) values('" & name & "','" & username & "','" & hktype & "','" & money & "','" & hkdate &  "','" & usefor & "','" & bz & "','" & hkip & "')"
conntemp.execute(sql)
%>
<script language="VBScript">
msgbox "感谢您对九酷网络的支持，您的汇款确"&chr(10)&chr(13)&chr(10)&chr(13)&"认资料已经成功提交给我们，我们将在"&chr(10)&chr(13)&chr(10)&chr(13)&"24小时内给予确认．",vbinformation,"汇款确认"
window.open "vip.asp","_self"
</script>