<!--#include file="st.asp"-->
<!--#include file="../../conn.asp"-->
<%call head()
Call saycarda("简繁互换") 

dim pw,txt,sid
sid=request.querystring("sid")
If saytk>1 Then
Submit=request("Submit")

If Submit="繁体转简体" Then pw=2

If Submit="简体转繁体" Then pw=1
Else 
pw=request("pw")
End if



txt=request("txt")
if pw=1 then
if txt="" then response.redirect "index.asp"

If saytk<>1 Then
Response.write "<form name=""form"" method=""post"" action=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">"%>
<br/>
<center><textarea name="txt" rows=15
 cols=30 value='' style="border:solid 1px #feb0b9;"><%=st(""&txt&"",0)%></textarea><br> 

<input type="submit" name="Submit" value="繁体转简体"> 
<input type="submit" name="Submit" value="简体转繁体">

</form></center><br/>



<%Else%>
<br/> <input type="text" name="txt<%=minute(now)%><%=second(now)%>" title="简体转繁体" value="<%=st(""&txt&"",0)%>" maxlength="300"/><br/>
<anchor title="简体转繁体">繁体转简体
<go method="post" href="index.asp?pw=2&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/>
</go></anchor><br/>
<%End if

elseif pw=2 then
if txt="" then response.redirect "index.asp"

If saytk<>1 Then
Response.write "<form name=""form"" method=""post"" action=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">"%>
<br/>

<center><textarea name="txt" rows=15
 cols=30 value='' style="border:solid 1px #feb0b9;"><%=st(""&txt&"",1)%></textarea><br> 
<input type="submit" name="Submit" value="简体转繁体">
<input type="submit" name="Submit" value="繁体转简体"> 


</form></center><br/>



<%Else%>
<br/><input type="text" name="txt<%=minute(now)%><%=second(now)%>" title="简体转繁体" value="<%=st(""&txt&"",1)%>" maxlength="300"/><br/>
<anchor title="繁体转简体">简体转繁体
<go method="post" href="index.asp?pw=1&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/>
</go></anchor>
<%End if
else
%>
输入要转换的字符:<br/>
<%If saytk<>1 Then
Response.write "<form name=""form"" method=""post"" action=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">"%>

<center><textarea name="txt" rows=15
 cols=30 value='' style="border:solid 1px #feb0b9;"></textarea><br> 

<input type="submit" name="Submit" value="简体转繁体"> 
<input type="submit" name="Submit" value="繁体转简体">


</form><br/></center>
<%else%>

<input type="text" name="txt<%=minute(now)%><%=second(now)%>" title="简体转繁体" value="" maxlength="300"/><br/>


<anchor title="简体转繁体">简体转繁体
<go method="post" href="index.asp?pw=1&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/>
</go></anchor><br/>
<anchor title="繁体转简体">繁体转简体
<go method="post" href="index.asp?pw=2&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<postfield name="txt" value="$(txt<%=minute(now)%><%=second(now)%>)"/>
</go></anchor>
<%end if%>
<%end if%>
<br/>----------<br/>
<%
response.write "<a href=""../index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回上级</a>"
response.write "<br/><a href=""/index.asp?sid="&sid&"&amp;saytk="&saytk&""">网站首页</a><br/>"
response.write"<img src='/foryou/clock.gif' alt='.'/>"&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&""
Call headsay()
%>
