<%@ page language="java" contentType="text/html; charset=GBK"
pageEncoding="gbk"%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>鏃犳爣棰樻枃妗�/title>
<link href="Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=javascript>
<!--
var displayBar=true;
function switchBar(obj){
if (displayBar)
{
parent.frame.cols="0,*";
displayBar=false;
obj.value="鎵撳紑宸﹁竟绠$悊鑿滃崟";
}
else{
parent.frame.cols="195,*";
displayBar=true;
obj.value="鍏抽棴宸﹁竟绠$悊鑿滃崟";
}
}function fullmenu(url){
if (url==null) {url = "admin_left.asp";}
parent.leftFrame.location = url;
}//-->
</SCRIPT>
<% Dim theInstalledObjects(4)
theInstalledObjects(0) = "Gatherer.VBProcess"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"
Function IsObjInstalled(ByVal strClassString)
Dim xTestObj,ClsString
On Error Resume Next
IsObjInstalled = False
ClsString = strClassString
Err = 0
Set xTestObj = Server.CreateObject(ClsString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
Exit Function
End Function %>
<body>
<table class="table" cellspacing="1" cellpadding="2" width="99%" align="center"
border="0">
<tbody>
<tr>
<th class="bg_tr" align="left" colspan="2" height="25">绯荤粺淇℃伅缁熻
<input onClick="switchBar(this)" type="button" value="鍏抽棴宸﹁竟绠$悊鑿滃崟" name="SubmitBtn" />
</th>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">鏈嶅姟鍣ㄧ被鍨嬶細<span class="TableRow2"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</span></td>
<td class="td_bg" width="50%">鑴氭湰瑙i噴寮曟搸锛�span class="TableRow1"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></span></td>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">绔欑偣鐗╃悊璺緞锛�span class="TableRow2"><%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></span></td>
<td class="td_bg" width="50%">ADO鏃犵粍浠朵笂浼狅細</td>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">FSO鏂囨湰璇诲啓锛�span class="TableRow2">
<%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b>鈭�/b>
<%end if%>
</span></td>
<td class="td_bg" width="50%">鏁版嵁搴撲娇鐢細<span class="TableRow1">
<%If Not IsObjInstalled(theInstalledObjects(2)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b style="color:blue">
<%If IsSqlDataBase = 1 Then%>
MS SQL
<%else%>
ACCESS
<%end if%>
</b>
<%end if%>
</span></td>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">Jmail缁勪欢鏀寔锛�span class="TableRow2">
<%If Not IsObjInstalled(theInstalledObjects(3)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b>鈭�/b>
<%end if%>
</span></td>
<td class="td_bg" width="50%">CDONTS缁勪欢鏀寔锛�span class="TableRow1">
<%If Not IsObjInstalled(theInstalledObjects(4)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b>鈭�/b>
<%end if%>
</span></td>
</tr>
<tr>
<td colspan="2" class="td_bg">
鍚堜綔缃戠珯锛�
</td>
</tr>
</tbody>
</table>
<table class="table" cellspacing="1" cellpadding="2" width="99%" align="center"
border="0">
<tbody>
<tr>
<th class="bg_tr" align="left" colspan="2" height="25">缃戠珯绠$悊绯荤粺鐗堟湰</th>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">褰撳墠鐗堟湰<span class="TableRow2"></span></td>
<td width="83%" class="td_bg"><strong>ACT缃戠珯鍐呭绠$悊绯荤粺 鍏嶈垂鐗�(Free Edition)<span class="TableRow1"></span></strong></td>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">鐗堟潈澹版槑<span class="TableRow2"></span></td>
<td class="td_bg" width="83%">1銆佹湰杞欢涓哄叡浜蒋浠�鏈粡涔﹂潰鎺堟潈锛屼笉寰楀悜浠讳綍绗笁鏂规彁渚涙湰杞欢绯荤粺; <br>
2銆佺敤鎴疯嚜鐢遍�鎷╂槸鍚︿娇鐢�鍦ㄤ娇鐢ㄤ腑鍑虹幇浠讳綍闂鍜岀敱姝ら�鎴愮殑涓�垏鎹熷け浣滆�灏嗕笉鎵挎媴浠讳綍璐d换; <br>
3銆佹偍鍙互瀵规湰绯荤粺杩涜淇敼鍜岀編鍖栵紝浣嗗繀椤讳繚鐣欏畬鏁寸殑鐗堟潈淇℃伅; 銆�br>
4銆佹湰杞欢鍙椾腑鍗庝汉姘戝叡鍜屽浗銆婅憲浣滄潈娉曘�銆婅绠楁満杞欢淇濇姢鏉′緥銆嬬瓑鐩稿叧娉曞緥銆佹硶瑙勪繚鎶わ紝浣滆�淇濈暀涓�垏鏉冨埄銆�/td>
</tr>
</tbody>
</table>
<table class="table" cellspacing="1" cellpadding="2" width="99%" align="center"
border="0">
<tbody>
<tr>
<th class="bg_tr" align="left" colspan="2" height="25">缃戠珯绠$悊绯荤粺寮�彂 </th>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">绋嬪簭鍒朵綔<span class="TableRow2"></span></td>
<td width="83%" class="td_bg"><strong>ACT(鎵挎帴缃戠珯鍒朵綔,鍚庡彴寮�彂 )</strong></td>
</tr>
<tr>
<td class="td_bg" height="23">鑱旂郴鏂瑰紡<span class="TableRow2"></span></td>
<td class="td_bg">E_mail锛歛[email protected] QQ锛�15288671 </td>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">绋嬪簭涓婚〉<span class="TableRow2"></span></td>
<td class="td_bg" width="83%"><a href="http://www.865171.cn" target="_blank">www.865171.cn</a> <a href="http://www.865171.cn" target="_blank">www.865171.cn</a> </td>
</tr>
</tbody>
</table>
</body>
</html>
换完以前就这样了,如何转换呢~~~
pageEncoding="gbk"%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>鏃犳爣棰樻枃妗�/title>
<link href="Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=javascript>
<!--
var displayBar=true;
function switchBar(obj){
if (displayBar)
{
parent.frame.cols="0,*";
displayBar=false;
obj.value="鎵撳紑宸﹁竟绠$悊鑿滃崟";
}
else{
parent.frame.cols="195,*";
displayBar=true;
obj.value="鍏抽棴宸﹁竟绠$悊鑿滃崟";
}
}function fullmenu(url){
if (url==null) {url = "admin_left.asp";}
parent.leftFrame.location = url;
}//-->
</SCRIPT>
<% Dim theInstalledObjects(4)
theInstalledObjects(0) = "Gatherer.VBProcess"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"
Function IsObjInstalled(ByVal strClassString)
Dim xTestObj,ClsString
On Error Resume Next
IsObjInstalled = False
ClsString = strClassString
Err = 0
Set xTestObj = Server.CreateObject(ClsString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
Exit Function
End Function %>
<body>
<table class="table" cellspacing="1" cellpadding="2" width="99%" align="center"
border="0">
<tbody>
<tr>
<th class="bg_tr" align="left" colspan="2" height="25">绯荤粺淇℃伅缁熻
<input onClick="switchBar(this)" type="button" value="鍏抽棴宸﹁竟绠$悊鑿滃崟" name="SubmitBtn" />
</th>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">鏈嶅姟鍣ㄧ被鍨嬶細<span class="TableRow2"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</span></td>
<td class="td_bg" width="50%">鑴氭湰瑙i噴寮曟搸锛�span class="TableRow1"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></span></td>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">绔欑偣鐗╃悊璺緞锛�span class="TableRow2"><%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></span></td>
<td class="td_bg" width="50%">ADO鏃犵粍浠朵笂浼狅細</td>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">FSO鏂囨湰璇诲啓锛�span class="TableRow2">
<%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b>鈭�/b>
<%end if%>
</span></td>
<td class="td_bg" width="50%">鏁版嵁搴撲娇鐢細<span class="TableRow1">
<%If Not IsObjInstalled(theInstalledObjects(2)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b style="color:blue">
<%If IsSqlDataBase = 1 Then%>
MS SQL
<%else%>
ACCESS
<%end if%>
</b>
<%end if%>
</span></td>
</tr>
<tr>
<td class="td_bg" width="50%" height="23">Jmail缁勪欢鏀寔锛�span class="TableRow2">
<%If Not IsObjInstalled(theInstalledObjects(3)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b>鈭�/b>
<%end if%>
</span></td>
<td class="td_bg" width="50%">CDONTS缁勪欢鏀寔锛�span class="TableRow1">
<%If Not IsObjInstalled(theInstalledObjects(4)) Then%>
<font color="#FF0066"><b>脳</b></font>
<%else%>
<b>鈭�/b>
<%end if%>
</span></td>
</tr>
<tr>
<td colspan="2" class="td_bg">
鍚堜綔缃戠珯锛�
</td>
</tr>
</tbody>
</table>
<table class="table" cellspacing="1" cellpadding="2" width="99%" align="center"
border="0">
<tbody>
<tr>
<th class="bg_tr" align="left" colspan="2" height="25">缃戠珯绠$悊绯荤粺鐗堟湰</th>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">褰撳墠鐗堟湰<span class="TableRow2"></span></td>
<td width="83%" class="td_bg"><strong>ACT缃戠珯鍐呭绠$悊绯荤粺 鍏嶈垂鐗�(Free Edition)<span class="TableRow1"></span></strong></td>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">鐗堟潈澹版槑<span class="TableRow2"></span></td>
<td class="td_bg" width="83%">1銆佹湰杞欢涓哄叡浜蒋浠�鏈粡涔﹂潰鎺堟潈锛屼笉寰楀悜浠讳綍绗笁鏂规彁渚涙湰杞欢绯荤粺; <br>
2銆佺敤鎴疯嚜鐢遍�鎷╂槸鍚︿娇鐢�鍦ㄤ娇鐢ㄤ腑鍑虹幇浠讳綍闂鍜岀敱姝ら�鎴愮殑涓�垏鎹熷け浣滆�灏嗕笉鎵挎媴浠讳綍璐d换; <br>
3銆佹偍鍙互瀵规湰绯荤粺杩涜淇敼鍜岀編鍖栵紝浣嗗繀椤讳繚鐣欏畬鏁寸殑鐗堟潈淇℃伅; 銆�br>
4銆佹湰杞欢鍙椾腑鍗庝汉姘戝叡鍜屽浗銆婅憲浣滄潈娉曘�銆婅绠楁満杞欢淇濇姢鏉′緥銆嬬瓑鐩稿叧娉曞緥銆佹硶瑙勪繚鎶わ紝浣滆�淇濈暀涓�垏鏉冨埄銆�/td>
</tr>
</tbody>
</table>
<table class="table" cellspacing="1" cellpadding="2" width="99%" align="center"
border="0">
<tbody>
<tr>
<th class="bg_tr" align="left" colspan="2" height="25">缃戠珯绠$悊绯荤粺寮�彂 </th>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">绋嬪簭鍒朵綔<span class="TableRow2"></span></td>
<td width="83%" class="td_bg"><strong>ACT(鎵挎帴缃戠珯鍒朵綔,鍚庡彴寮�彂 )</strong></td>
</tr>
<tr>
<td class="td_bg" height="23">鑱旂郴鏂瑰紡<span class="TableRow2"></span></td>
<td class="td_bg">E_mail锛歛[email protected] QQ锛�15288671 </td>
</tr>
<tr>
<td class="td_bg" width="17%" height="23">绋嬪簭涓婚〉<span class="TableRow2"></span></td>
<td class="td_bg" width="83%"><a href="http://www.865171.cn" target="_blank">www.865171.cn</a> <a href="http://www.865171.cn" target="_blank">www.865171.cn</a> </td>
</tr>
</tbody>
</table>
</body>
</html>
换完以前就这样了,如何转换呢~~~
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
删除这两个..........修改charset=GBK为GBK2312