📄 online_add.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">

<body style="font-size: 9pt; background-color:#D6DFF7">
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("member_askonline.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("member_askonline.asp")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 ywid from ask where ywid='"&request.form("txttrack")&"' order by id desc"
rs.open sql,conn,3,3
if not rs.eof then
response.write"<br><div align=center class=f1>您 无 需 多 次 提 交 同 一 个 问 题！</div>"
else
%>
<div align="center">
  <center>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
  <tr> 
    <td colspan="3"><div align="center" class="f1">请 选 择 提 问 部 门</div></td>
  </tr>
  <tr> 
    <td><div align="center"><a href="member_ask.asp?ask=1">技术部问题</a></div></td>
    <td><div align="center"><a href="member_ask.asp?ask=2">业务部问题</a></div></td>
    <td><div align="center"><a href="member_ask.asp?ask=3">财务部问题</a></div></td>
  </tr>
</table></center>
</div>
<br>
<br>
<% 
ask=server.htmlencode(request.form("ask"))
user_name=server.htmlencode(request.form("login_name"))
email=server.htmlencode(request.form("email"))
tel=server.htmlencode(request.form("tel"))
ywid=server.htmlencode(request.form("txttrack"))
domainname=server.htmlencode(request.form("txtdomain"))
hostloginname=server.htmlencode(request.form("txtlogname"))
asktyp=server.htmlencode(request.form("teach"))
askcontent=server.htmlencode(request.form("txtcontent"))
thetime=server.htmlencode(request.form("radperiod"))
typ=server.htmlencode(request.form("radlevel"))
usertyp=session("usertyp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ask"
rs.open sql,conn,3,3
rs.addnew
rs("user_name")=user_name
rs("email")=email
rs("tel")=tel
rs("ywid")=ywid
rs("domainname")=domainname
rs("hostloginname")=hostloginname
rs("asktyp")=asktyp
rs("askcontent")=askcontent
rs("thetime")=thetime
rs("typ")=typ
rs("usertyp")=usertyp
rs("ask")=ask
rs("date")=now()
rs.update
response.write"<br><div align=center>您的问题已提交！<br><br>请记住您的业务跟踪号：<span class=f1>"& ywid &"</span>&nbsp; 查看问题回馈情况请您进入消息中心。<br><br><br><br><a target='_top' href='member_main.asp'>返回会员区</a></div>"
%>
</body>
<% end if %><% end if
rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

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