📄 toususave.asp
字号:
<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="img/css.css">
<div align="center">
<center>
<table border="0" width="100%" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="380" height="25">
<%
if request("user_name")="" then
founderr=true
errmsg=errmsg&"<br>"+"<li>Invalid Username entered. Please try again."
else
user_name=request("user_name")
end if
if request("sub_number")="" then
founderr=true
errmsg=errmsg&"<br>"+"<li>Invalid Order Number entered. Please try again."
else
sub_number=request("sub_number")
end if
if founderr=false then
sql="select * from sub where sub_number='"&sub_number&"' and user_name='"&user_name&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if rs.eof then
founderr=true
errmsg=errmsg&"<br>"+"<li>The Order in not found."
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from ts where sub_number='"&sub_number&"'"
rs1.open sql1,conn,3,3
if rs1.eof then
rs1.addnew
rs1("user_name")=rs("user_name")
rs1("sub_number")=rs("sub_number")
rs1("ts_date")=now()
rs1.update
else
founderr=true
errmsg=errmsg&"<BR>"+"<li>The Order Had Been Claimed"
end if
rs1.close
set rs1=nothing
end if
rs.close
end if
%>
<div align="center"><font color="#FFFFFF"><b>
<%if founderr<>false then
response.write " Are you sure?"
else
response.write " Order Claim Done."
end if
%>
</b></font></div></td>
</tr>
<tr>
<td width="100%" height="25">
<%
if founderr<>false then
response.write errmsg
else
response.write " The Order you Claimed::"
response.write "<font color=red>"
response.write sub_number
response.write "</font><br>"
response.write " Please wait for our reply."
end if
'rs.close
%></td>
</tr>
</table>
</center>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -