textbox.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 93 行
ASP
93 行
<!--#include file="../INC/Conn.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
dim Makking,ID
Makking = Trim(Request.QueryString("Makking"))
ID = Trim(Request.QueryString("ID"))
select case Makking
Case ""
Response.Write body
Case "MailSend"
IF ID <> "" and Not Isnull(ID) Then
Set Rs = Conn.Execute("Select * From SendInfo Where ID = "& ID &"")
IF Not Rs.eof Then
body = Trim(Rs("MailContent"))
End IF
Rs.Close
Set Rs = Nothing
Else
Set Rs = Conn.Execute("Select * From MailBody_Setup Where NumberID=4")
IF Not Rs.eof Then
body = "<br><br>"& Rs("Body")
End If
rs.close
set rs=nothing
End IF
Response.Write body
case "News"
set rs=conn.execute("select * from News where ID='"& ID &"'")
If Not rs.Eof Then
body = rs("Content")
End If
Response.Write body
rs.close
set rs=nothing
case "Serve"
set rs=conn.execute("select * from ServeInfo where ID='"& ID &"'")
If Not rs.Eof Then
body = rs("ServeContent")
End If
Response.Write body
rs.close
set rs=nothing
case "Product"
set rs=conn.execute("select * from Product where ID='"& ID &"'")
If Not rs.Eof Then
body = rs("Content")
End If
Response.Write body
rs.close
set rs=nothing
case "MailBody"
set rs=conn.execute("select * from MailBody_Setup where ID='"& ID &"'")
If Not rs.Eof Then
body = rs("Body")
End If
Response.Write body
rs.close
set rs=nothing
end select
Conn.Close
Set Conn = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?