showwords.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 37 行

ASP
37
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Config.asp" -->
<%
OpenDB=True
Dim ID
ID=Trim(Request("ID"))
%>
<!--#include file="Inc/Conn.asp" -->
<%
Dim Rs,Sql,ChengYu
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From [CWords] Where ID = "&ID&" "
Rs.Open Sql,Conn
If Rs.Eof then
	Response.Write "<br> <br> <br><center>没有此数据</center>"
	Response.End()
Else
	ChengYu=Rs("ChengYu")
%>
<title><%=ChengYu%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Css.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
      
	  
	  
	</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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