⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 getcall.asp

📁 诚信商店系统源代码
💻 ASP
字号:
<%@LANGUAGE="VBScript"%><meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,webmaster@xytime.com,jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<!--#include file="program/public/wxl_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收到消息___诚信商店</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<%
  CallId=request("CallId")
  conn.Execute("UPdate web_MemerCallMesg set CallMark=1 where CallId="&CallId)
  Query="select * from web_MemerCallMesg where CallId="&CallId
  set sql=Server.Createobject("ADODB.Recordset")
  set sql=conn.Execute(Query)
  response.write "<table align=center width=500 border=1>"
  response.write "<tr><td colspan=2>收到消息</tr></tr>"
  response.write "<tr><td>发出时间:"&sql("CallTime")&"</tr><td>发出人:<a href='shopmesg.asp?ToMen="&sql("ToMen")&"'>"&GetName("select str_sOperName from web_SysOperators where int_sOperID="&sql("FromMem"))&"</a></td></tr>"
  response.write "<tr><td colspan=2>"&sql("Mesg")&"</td></tr>"
  response.write "</table>"
  sql.close
%>

⌨️ 快捷键说明

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