可能一句话就能解决的问题我偏偏不会

SaySorry 2004-08-02 04:40:56

1.htm
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title><body>
<span id="idXml1">idXml1</span>
<script language="vbscript">
set oBao = createobject("Microsoft.XMLHTTP")
tempId=replace(replace(replace(now," ",""),"-",""),":","")
oBao.open "GET","2.htm", false
oBao.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
oBao.send
window.idXml1.innerHTML=unescape(oBao.responseText)
set oBao=nothing
</script>
</body></html>
2.htm
<select name="sq" onchange="vbscript:call CreaDong">
<option value="">请选择社区</option>
<option value="00001">乌西站1街</option>
<option value="00002">乌西站2街</option>
<option value="00003">乌西站3街</option>
</select >
功能是实现了怎么到了1.htm里面全部是乱码哦
盼望高手给我放一滴水！~~~

...全文

81 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaoxingchi 2004-08-04

打赏
举报

Server.asp
<% @Language="JavaScript" %>
<%
function OpenDB(sdbname)
{
/*
*--------------- OpenDB(sdbname) -----------------
* OpenDB(sdbname)
* 功能:打开数据库sdbname,返回conn对象.
* 参数:sdbname,字符串,数据库名称.
* 实例:var conn = OpenDB("database.mdb");
* author:wanghr100(灰豆宝宝.net)
* update:2004-5-12 8:18
*--------------- OpenDB(sdbname) -----------------
*/
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
var conn = Server.CreateObject("ADODB.Connection");
conn.Open(connstr);
return conn;
}
var sResult = "";
var oConn = OpenDB("data.mdb");
//特殊字符：+,%,&,=,?等的传输解决办法.客户端字符是经过escape编码的
//所以服务器端先要经过unescape解码.
//Update:2004-6-1 12:22
var userid = unescape(Request("userid"));
var sql = "select username from users where userid='"+userid+"'";
var rs = oConn.Execute(sql);
if(!rs.EOF)
{
sResult = rs("username").Value;
}
else
{
//加入容错.2004-5-30 10:15
sResult = "Sorry,没有找到..."
}
//escape解决了XMLHTTP。中文处理的问题.
Response.Write(escape(sResult));
%>

Client.htm
<script language="JavaScript">
function GetResult(str)
{
/*
*--------------- GetResult(str) -----------------
* GetResult(str)
* 功能:通过XMLHTTP发送请求,返回结果.
* 参数:str,字符串,发送条件.
* 实例:GetResult(document.all.userid.value);
* author:wanghr100(灰豆宝宝.net)
* update:2004-5-27 19:02
*--------------- GetResult(str) -----------------
*/
var oBao = new ActiveXObject("Microsoft.XMLHTTP");
//特殊字符：+,%,&,=,?等的传输解决办法.字符串先用escape编码的.
//Update:2004-6-1 12:22
oBao.open("POST","server.htm?userid="+escape(str),false);
oBao.send();
//服务器端处理返回的是经过escape编码的字符串.
document.all.username.value=unescape(oBao.responseText)
}
</script>
<input type="button" onclick="GetResult(document.all.userid.value)" value="Get"><br>
userid:<input type="text" name="userid"><br>
username:<input type="text" name="username">

你可以参考一下他的方法！

19az 2004-08-02

打赏
举报

郁闷啊，测试了半天还是找不到问题所在，帮你顶！
看来是水平有限,希望能有高手出现,静候!

孟子E章 2004-08-02

打赏
举报

<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title><body>
<span id="idXml1">idXml1</span>
<script language="vbscript">
set oBao = createobject("Microsoft.XMLHTTP")
tempId=replace(replace(replace(now," ",""),"-",""),":","")
oBao.open "GET","2.htm", false
oBao.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
oBao.send
window.idXml1.innerHTML=bytes2BSTR(oBao.responseBody)
set oBao=nothing
</script>
</body></html>

<SCRIPT language="VBScript">

Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>

孟子E章 2004-08-02