📄 question.asp
字号:
<% if not session("sel") then
Response.redirect "usdl.asp"
end if
%>
<!--#include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE><%=page_name%> – <%=page_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 background=images/bg.jpg topMargin=0 marginheight="0"
marginwidth="0">
<!--#include file="head.asp" -->
<TABLE height=288 cellSpacing=0 cellPadding=0 width=760 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width=171 height=288 vAlign=top background="images/bg_l_n.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><img src="images/domain_image.gif" width="174" height="119"></div></td>
</tr>
<tr>
<td height="17" bgcolor="#EEEEEE"><div align="center">欢迎: <font color="#FF0000"><strong><%= session("us") %></strong></font> 光临</div></td>
</tr>
<tr>
<% us=session("us")
sql="select * from user where userid='"&us&"'"
rs.open sql,conn,1,1
%>
<td><p>您的账面存款：</p>
<p align="center"><font color="#FF0000">￥ <%= rs("je") %></font></p>
<p align="center">客户等级: <font color="#FF0000"><%= rs("sf") %>
<% rs.close
if Trim(Request.QueryString("w"))="save" then
if Trim(Request.Form("body"))="" then
ms="对不起！！你的问题提交失败，请输入您的问题．．．．"
else
ms="您的问题已经提交，我们会尽快回答您的问题..谢谢您的支持．．"
sql="insert into msm (userid,mail,body) values ('"&session("us")&"','"&Trim(Request.Form("email"))&"','"&Trim(Request.Form("body"))&"')"
conn.execute(sql)
end if
end if
%>
</font></p></td>
</tr>
<tr>
<td height="1" background="images/2.jpg"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center">
<!--#include file="user_inc.asp" -->
</div></td>
</tr>
<tr>
<td><p></td>
</tr>
<tr>
<td height="1" background="images/2.jpg"></td>
</tr>
</table></TD>
<td height="288" valign="top"><table width="573" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="573"><img src="images/mameger.gif" width="437" height="43"></td>
</tr>
<tr>
<td height="189"><form name="form2" method="post" action="question.asp?w=save">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#E6E6E6">
<td colspan="2"><strong>在线提交问题</strong></td>
</tr>
<tr>
<td width="17%" height="36">你的email:</td>
<td width="83%"><input name="email" type="text" id="email" size="15">
<font color="#FF0000">以便我们回复发送到您的邮箱里</font></td>
</tr>
<tr>
<td height="81">您的问题：</td>
<td><textarea name="body" cols="30" rows="5" id="body"></textarea>
<font color="#FF0000">＊</font></td>
</tr>
<tr>
<td height="47"> </td>
<td><p>
<input type="submit" name="Submit2" value="－确定提交－">
</p></td>
</tr>
</table>
</form></td>
</tr>
</table>
<p align="center"><font color="#FF0000"><%= ms %></font></p>
<table width="575" border="0" align="center" cellpadding="0" cellspacing="0">
<%
rs.open "select * from msm where userid='"&us&"'",conn,1,1
while not rs.eof
%>
<tr>
<td width="69">您的问题：</td>
<td width="506"><font color="#000099"><%= rs("body") %></font></td>
</tr>
<tr bgcolor="#F9F9F9">
<td><div align="center"><font color="#FF0000">回复：</font></div></td>
<td><font color="#990000">
<% if rs("bak")="" then
Response.Write("我们会尽快回答您的提问")
else
Response.Write rs("bak")
end if %>
</font></td>
</tr>
<%
rs.movenext
wend
rs.close
%>
</table>
<p align="center"></p></td>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD bgColor=#999999><IMG height=1 src="images/spacer.gif"
width=1></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="foot.asp" -->
<%conn.close
set conn= nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -