📄 pingdital.asp

📁 一个免费的绿叶网上书店请大家提宝贵意见站长的帐号是　　用户名：雨丁香　　密码：200505 副站长帐号是　　用户名：　wangli 密码：197207

💻 ASP

字号:

<%@ language="vbscript" %>
<!--#include file="base.asp"-->
<% 
if session("username")="" then Response.Redirect "login.htm"
if session("adminflag")>2 and session("class")<>"订单管理"  then Call PrintMsg(NotAdmin)
Response.Buffer=true
Response.Expires=0
dim user,sum,you,rs1
   user=request("user")  
   sql="select * from pingjia where username='"& user &"' "
   rs.open sql,conn,1,2
   'session("user")=user
%>
<html>

<head>
<title>网上书店订单管理</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>A:link {
	COLOR: black; TEXT-DECORATION: none
}
A:visited {
	COLOR: black; TEXT-DECORATION: none
}
A:active {
	TEXT-DECORATION: none
}
A:hover {
	COLOR: black; TEXT-DECORATION: none
}
BODY {
	FONT-FAMILY: 宋体; FONT-SIZE: 10pt; LETTER-SPACING: 0.1em; LINE-HEIGHT: 1.4em
}
TD {
	FONT-FAMILY: 宋体; FONT-SIZE: 10pt; LETTER-SPACING: 0.1em; LINE-HEIGHT: 1.4em
}
FONT {
	FONT-FAMILY: 宋体; FONT-SIZE: 10pt; LETTER-SPACING: 0.1em; LINE-HEIGHT: 1.4em
}
</STYLE>
</head>
<body bgcolor="#FFFFFF" >
<table width="700" border="1" align="center" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" bordercolorlight="#000000" bordercolordark="#FFFFFF">
  <tr bgcolor="#304D7C" align="center"> 
    <td colspan="7" align="center"><font size="6" color="#FFFFFF"> <%=user%> </font><font color="#FFFFFF">评价详细资料</font></td>
  </tr>
  <tr bgcolor="#FFCC33" align="left"> 
    <td colspan="7">&nbsp; <%=user%> <font color="#000000">评价详细资料</font></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td width="37%" height="2">客 户 评 价</td>
    <td colspan="6" height="2" width="63%"><div align="left"><%=rs("dengji")%></div></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td width="37%">客 户 留 言</td>
    <td width="63%" colspan="6"> <div align="left"> 
        <% =rs("message") %>
      </div></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td>评 价 时 间</td>
    <td width="63%" colspan="6"><div align="left"><%=rs("addtime")%></div></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td>管理员回复</td>
    <td width="63%" colspan="6"><div align="left"><%if rs("re")=true then %><%=rs("reply")%><% else %>没有回复<% end if %></div></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    <td colspan="7"><a href="dingdital.ASP?user=<%=user%>">查看客户个人资料和购物订单</a></td>
  </tr>

</table>

<br>
<form name="form1" method="post" action="reply.asp?id=<%=rs("id")%>">
  <table width="700" border="1" align="center" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" bordercolorlight="#000000" bordercolordark="#FFFFFF">
    <tr bgcolor="#FFCC33"> 
      <td colspan="3" height="17">管理员回复</td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td  align="center">管理员回复</td>
      <td width="437"> <div align="left">
          <textarea name="reply" cols="50" rows="8" id="reply"></textarea>
        </div></td>
    </tr>
    <tr align="center" bgcolor="#FFFFFF"> 
      <td colspan="3"><input type="submit" name="Submit" value="提交"> &nbsp; <input type="button" name="Submit2" value="返回" onClick="window.location.href='dingdan.asp'"></td>
    </tr>
  </table>
</form>  <% rs.close %>
<p align="center">&nbsp; </p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -