📄 jft.asp

📁 ASP_成语查询拼音简繁转换程序
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<%
Dim rst
Dim strWord,strWordA,strLX,strA
Dim intLen
Dim strSql,strSqlKeep
If Request.Form("do")<>"" Then
	strWord=Trim(Request.Form("Word"))
	strLX=Trim(Request.Form("LX"))
	If strWord="" Then
		strWordA=""
	Else		
		'对字符作简单处理
		strWord=Replace(strWord,",","，")
		strWord=Replace(strWord,"'","‘")
		strWord=Server.HtmlEncode(strWord)
		strKeep=strWord
		If strLX="0" Then
			strSqlKeep="Select FT1 From FTJT Where JT='"
		Else
			strSqlKeep="Select JT From FTJT Where FT1='"
		End If
		Set rst=Server.CreateObject("Adodb.RecordSet")
		intLen=Len(strWord)
		'单字解析
		For i=1 To intLen
			strA=Mid(strWord,i,1)
			strSql=strSqlKeep & strA & "'"
			rst.Open strSql,conn,1,1
			If rst.Eof Then
				strWordA=strWordA & strA
			Else
			 	strWordA=strWordA & rst(0)
			End If
			rst.Close
		Next
		Set rst=Nothing
		Set conn=Nothing
	End if
Else
	strWordA=""
End If
%>
<!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=70% cellpadding=2 cellspacing=1 align=center>
	<Form Method="post" Action="">
	<tbody>
		<tr>
			<td id=blue class=greeny align=center>
				<font class=h><b>简繁通[非内码转换]</b></font>
			</td>
		</tr>
		<tr>
			<td id=blue class=greeny align=center>
				<font class=h><b>http://www.Facesun.cn/portal/Demo/JFT.asp</b></font>
			</td>
		</tr>
		<tr>
			<td id=blue class=greeny>
			<input type="radio" name="LX" value="0" class=noborder <%If strLX<>"1" Then%>checked<%End if%>> 简体转繁体
			<input type="radio" name="LX" value="1" class=noborder <%If strLX="1" Then%>checked<%End if%>>繁体转简体
			</td>
		</tr>
		<tr>
			<td id=blue class=greeny>
			待转换文本：<Textarea  name="Word"  maxlength=120 style="width:80%"  rows=5 class=noborder><%=strWord%></Textarea>
			</td>
		</tr>
		<tr>
			<td id=blue class=greeny>
			转换后文本：<Textarea  name="WordA"  maxlength=120 style="width:80%" rows=5  class=noborder><%=strWordA%></Textarea>
			</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>&nbsp;&nbsp;&nbsp; <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 + -