家庭/个人应用

开发平台：

ASP/ASPX

translate.asp：源码内容

							<%
dim item
item=request.QueryString()
if item="" then
response.redirect"/box"
response.end
end if
dim code
code=request.form("code")
select case item
case "js"
   code=replace(code,chr(34),""&chr(34))
   code=replace(code,"</script>","</script>")
   code=replace(code,vbCrLf,chr(34)&");"&vbCrLf&"document.write("&chr(34))
   code="<script language=""JavaScript"">"&vbCrLf&"<!--"&vbCrLf&"document.write("&chr(34)&code&chr(34)&");"&vbCrLf&"//-->"&vbCrLf&"</script>"
   
end select
%>
<html>
<head>
<title>工具箱</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../images/forum_admin.css" type=text/css rel=stylesheet>
<script language="javascript">
function copy(){
document.code.code.select()
textRange=document.code.code.createTextRange();
textRange.execCommand("Copy");
}
</script>
</head>
<body marginheight="0" marginwidth="0" rightmargin="0" topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="609" height="40" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="14" width="609"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="603" height="365" >
<input type="hidden" name="channel" value="global">
<td height="365" width="448" valign="top">
<form name="code">
<p style="margin-left: 15">
<script>
switch(location.search){
case "?js":
document.write("HTML>JavaScript 转换工具")
break;
}
</script>
<br>
<textarea name="code" rows="21" cols="93" style="font:9pt 宋体; color: #800000"><%=code%></textarea><br>
<input onclick="copy()" type="button" value="复制到剪贴板">
</form>
</td>
</tr>
</table>
  </center>
</div>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
    </table>
</body>
</html></textarea>

						