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

📄 contact_view.asp

📁 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会 商会
💻 ASP
字号:
🔍 

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%
keyno=Request.QueryString("keyno")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

if keyno="" then Response.End

sqltext="select * from contact where keyno="&keyno
rs.Open sqltext,cn,1,3
if not rs.EOF then
	title    = Server.HtmlEncode(trim(rs("title")))
	content  = Server.HtmlEncode(trim(rs("content")))
	myname   = Server.HtmlEncode(trim(rs("myname")))
	address  = Server.HtmlEncode(trim(rs("address")))
	phone    = Server.HtmlEncode(trim(rs("phone")))
	fax      = Server.HtmlEncode(trim(rs("fax")))
	corpname = Server.HtmlEncode(trim(rs("corpname")))
	email    = Server.HtmlEncode(trim(rs("email")))

	sysemail = trim(rs("sysemail"))
	creadate = rs("creadate")
	
	rs("flag") = "1"
	rs.Update
else
	Response.End	
end if
%>	
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 

.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 

A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff0000}

A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff6600;}

A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
-->
</style>
</head>

<body bgcolor="#fefefe" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
	<td>
	   <table width="100%" border="0" cellspacing="0" cellpadding="1" align=center>
		 	  <tr><td style="font-size:14px;line-height:150%">
                <table width="100%" border="0" cellspacing="0" cellpadding="5">
                  <tr> 
                    <td width=5></td>
                    <td valign="top" style="font-size:12px;line-height:150%">
		                标　　题： <b><%=title%></b>&nbsp;<font color=800000>(<%=creadate%>)</font><br>
				        收 件 人： <%=sysemail%><br>
				        姓　　名： <%=myname%><br>
				        单　　位： <%=corpname%><br>
				        电　　话： <%=phone%><br>
				        地　　址： <%=address%><br>
				        电子信箱： <a href="mailto:<%=email%>"><%=email%></a><br>
				        传　　真： <%=fax%><br>
                      </td>
                  </tr>
               </table>
		 </td></tr>
	  </table>
	  <table width="96%" border="0" cellspacing="0" cellpadding="1" align=center>
		<tr><td style="font-size:12px;line-height:150%"><%=checkstr(content,"1")%>
			</td></tr>
	  </table>
	</td></tr>
</table>
</body>
</html>
	
<!-- #include file="../func.inc.asp" -->

⌨️ 快捷键说明

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