📄 cycx.asp
字号:
<!--#include file="inc/conn.asp"-->
<%
Dim rst
Dim strCY,strCYPY,strCYZS,strCYCC,strCYZJ,strKeep
If Request.Form("do")<>"" Then
strCY=Trim(Request.Form("CY"))
If strCY="" Then
ClearForm
Else
strCY=Replace(strCY,",","，")
strCY=Server.HtmlEncode(strCY)
strKeep=strCY
Set rst=Server.CreateObject("Adodb.RecordSet")
rst.Open "Select A3,A4,A5,A6 From HZCY Where A2='" & strCY & "'",conn,1,1
If rst.Eof Then
ClearForm
strCY="没有查询到 [" & strKeep & "]"
Else
strCYPY=rst(0) '成语拼音
strCYZS=rst(1) '成语注释
strCYCC=Replace(rst(2),"～","<font color=red><b>" & strCY & "</b></font>") '成语出处
strCYZJ=Replace(rst(3),"～","<font color=red><b>" & strCY & "</b></font>") '成语造句
End if
Set rst=Nothing
Set conn=Nothing
End if
Else
ClearForm
End If
Sub ClearForm()
strCY=""
strCYPY=""
strCYZS=""
strCYZJ=""
End Sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html xmlns:v='urn:schemas-microsoft-com:vml'>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<head>
<title>www.Facesun.cn Demo Page</title>
<STYLE>v\:*{behavior:url(#default#VML);}</STYLE>
<link rel="stylesheet" type="text/css" href="inc/Style.css">
</head>
<body>
<table width=80% cellpadding=2 cellspacing=1 align=center>
<Form Method="post" Action="">
<tbody>
<tr>
<td id=blue class=greeny align=center>
<font class=h><b>成语查询程序演示[目前数据3000条]</b></font>
</td>
</tr>
<tr>
<td id=blue class=greeny align=center>
<font class=h><b>http://www.Facesun.cn/portal/Demo/CYCX.asp</b></font>
</td>
</tr>
<tr>
<td id=blue class=greeny>
请输入成语：<input type=text name="CY" maxlength=30 style="width:80%" value="<%=strCY%>" class=noborder>
</td>
</tr>
<tr>
<td id=blue class=greeny>
成语的拼音：<input type="text" name="CYPY" style="width:80%;color:blue" value="<%=strCYPY%>" class=noborder><br>
</td>
</tr>
<tr>
<td id=blue class=greeny>
成语的解释：<input type="text" name="CYJS" style="width:80%;color:Red" value="<%=strCYZS%>" class=noborder><br>
</td>
</tr>
<tr>
<td id=blue class=greeny>
成语原出处：<font color="Green"><%=strCYCC%></font>
</td>
</tr>
<tr>
<td id=blue class=greeny>
用成语造句：<font color="Green"><%=strCYZJ%></font>
</td>
</tr>
<tr>
<td class=greeny align=center>
<input name="do" type=submit value=" 查 询 " class=noborder>
</td>
</tr>
<tr>
<td id=blue class=greeny align=Right>
<font class=h><b>阿泰 20040325</b> <A href="http://blog.csdn.net/babyt" target="_blabk">欢迎访问我的日志</A></font>
</td>
</tr>
</tbody>
</Form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -