📄 setgrade.asp

📁 英文版全站B2B仿阿里巴巴贸易平台网站,全英文
💻 ASP
字号:
<!--#include file="../../Inc/DBConn1.asp" -->
<!-- #include file="../../inc/jmail.asp" -->
<LINK href="../../CSS/Style.css" rel=stylesheet type=text/css>

<CENTER>
<%
	UID=request("UID")
	
	if request("action")="save" then
		set rs=server.createobject("adodb.recordset")
		sql="select * from UserCompany where UID=" & request("UID")
		rs.open sql,conn,3,3
		Rs("Grade")=request("Grade")
		Rs("IsUpGrade")=0
		
		if request("Grade")=1 then
			StrGrade="普通"
		elseif request("Grade")=2 then
			StrGrade="诚信"
		end if
		
		'E-Mail
		topic="恭喜！您已经成为china-public-security的" & StrGrade & "会员"
		mailbody=mailbody & "<title>" & Rs("UserName") &"</title>"
		mailbody=mailbody & "<body leftmargin=0 topmargin=0>"
		mailbody=mailbody & "<table width=100%  border=0 cellspacing=0 cellpadding=0>"
		mailbody=mailbody & "<tr><td colspan=2 height=40>您好，<font color=#ff0000>"& Rs("UserName") & "</font></td></tr>"
		mailbody=mailbody & "<tr><td colspan=2 height=40>您在<a href=http://www.china-public-security.cn target=_blank>china-public-security.cn</a>上成功申请为" & StrGrade & "会员！"
		mailbody=mailbody & "<tr><td colspan=2 height=50 align=right><font color=red size=+1>欢迎访问<a href=http://www.china-public-security.cn target=_blank>china-public-security.cn</a>！</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>"
		mailbody=mailbody & "</table>"
		mailbody=mailbody & "<br><hr width=95% size=1>"
		mailbody=mailbody & "<table width=768 height=1800 border=0 cellspacing=0 cellpadding=0 align=center><tr><td><iframe src=http://www.china-public-security.cn frameborder=0 width=100% height=100% marginwidth=0 marginheight=0 scrolling=no></iframe></td></tr></table>"
		mailbody=mailbody & "</body>"
		mailbody=mailbody & "</html>"
		
		call SendMail(Rs("Email"),topic,mailbody)
		
		Rs.update
		Rs.close
		set Rs=nothing
		
		response.write "<br><center>"+"操作成功，请<a href=javascript:window.close();><font color=#ff000>关闭窗口</font></a>进行其他操作。"	
	else		
		Set rs= Server.CreateObject("ADODB.Recordset") 
		sql="select * from UserCompany where UID=" & UID
		rs.open sql,conn,1,1
%>
	<FORM action=SetGrade.asp method=post name=form1 ID="Form1">
		<INPUT name=action type=hidden value="save">
		<INPUT name=UID type=hidden value="<%=UID%>">
		<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width="98%" ID="Table1">
			<TR>
				<TD>
					<INPUT <%if rs("Grade")=1 then%> checked <%end if%> name=Grade type=radio value="1">&nbsp;免费会员 
				</TD>
				<TD>
					<INPUT <%if rs("Grade")=2 then%> checked <%end if%> name=Grade type=radio value="2">&nbsp;诚信会员
				</TD>
			</TR>
			<TR>
				<TD height="40" align="center" colspan=2>
					<INPUT type=submit value='确&nbsp;&nbsp;定' name=Submit2 ID="Submit1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					<input type="button" value="关&nbsp;&nbsp;闭" name="B4" onclick="javascript:window.close();" ID="Button1">
				</TD>
			</TR>
			<tr>
				<td height=10 colspan=2></td>
			</tr>
		</TABLE>
	</form>
<%
	end if
%>
</center>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -