我有在asp下的无刷新查询实例 但是到了.net下不知道如何改 ?
这是表单
<form name="form1" >
送达站:
<input type="text" id="search" name="search" size="15">
<input type="button" value="查询" onClick="getPage(1
</form>
下面是ajax的js
<script>
<!--
var content=document.getElementById("content");
var tip=document.getElementById("tip");
function getPage(page){
tip.style.display="inline";
var search=document.form1.search.value;
var xmlhttp;
try
{
xmhhttp=new ActiveXObjec("Msxml2.XMLHTTP");
}
catch (e)
{
try{
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
catch (e){
try{
xmlhttp=new XMLHttpRequest();
}
catch (e){}
}
}
xmlhttp.onreadystatechange=function()
{
if(4==xmlhttp.readyState)
{
if(200==xmlhttp.status)
{
document.getElementById("tip").innerHTML=xmlhttp.responseText;
}
else
{
alert(xmlhttp.status);
}
}
}
var url="search.asp?search="+escape(search)+"&t="+new Date().getTime();
xmlhttp.open("get",url);
xmlhttp.send(null);
}
-->
</script>以下是search.aspx
<%
Response.CharSet="GB2312"
text = trim(request("search"))
set rs = server.createobject("adodb.recordset") if text="" then
sql ="select jydxx.jydbh,jhrq,sdz,hw_id,hwmc,sxhh,shrxm,jianshu,shangfu,xianjin,yuejie,qiankuan,dshk,huikou,zyf,jsfs,jydzt,hwzt,thfs from jydxx,hwxx where jydxx.jydbh = hwxx.jydbh "
end if
if text<>"" then
sql = "select jydxx.jydbh,sdz,hw_id,hwmc,sxhh,shrxm,jianshu,shangfu,xianjin,yuejie,qiankuan,dshk,huikou,zyf,jsfs,jydzt,hwzt,thfs from jydxx,hwxx where jydxx.jydbh = hwxx.jydbh and sdz like '%"&text&"%' "
end if
rs.open sql,conn,1,1
If rs.eof Then
str="<table id=""tb1"" class=""tb"" border=""0"" cellpadding=""0"" cellspacing=""0"" ><tr class=""tbhead"" ></tr></table>"
response.write str
Else
rs.pagesize=10000
page=clng(Request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage = page str="<table id=""tb1"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""tb"" onclick=""SetCheck(this)""><tr class=""tbhead"" ></tr>"
for i=1 to rs.pagesize
str=str&"<tr><td id=""hw_id"" id=""hw_id"" width=""5%""><input type=""checkbox"" value="&rs("hw_id")&" name='ids'></td><td id=""jydbh"" align=""center"" width=""23%"">"&rs("jydbh")&"</td><td id=""sdz"" align=""center"" width=""13%"">"&rs("sdz")&"</td><td id=""shrxm"" align=""center"" width=""15%"">"&rs("shrxm")&"</td><td id=""sxhh"" align=""center"" width=""12%"">"&rs("sxhh")&"</td><td id=""hwmc"" align=""center"" width=""11%"">"&rs("hwmc")&"</td><td id=""jianshu"" align=""center"" width=""8%"" ><input type=""text"" value="&rs("jianshu")&" size=""4"" maxlength=""5"" readonly=""true""></td><td id=""hwzt"" align=""center"" width=""13%"">"&rs("hwzt")&"</td></tr>"
rs.movenext
If rs.EOF Then
Exit For
End If
Next
End If str=str & "</table>"
rs.close
response.write str
%>
谁帮我改改 在C#下运行,详细点
最好分成aspx和cs 文件!!!谢谢
这是表单
<form name="form1" >
送达站:
<input type="text" id="search" name="search" size="15">
<input type="button" value="查询" onClick="getPage(1
</form>
下面是ajax的js
<script>
<!--
var content=document.getElementById("content");
var tip=document.getElementById("tip");
function getPage(page){
tip.style.display="inline";
var search=document.form1.search.value;
var xmlhttp;
try
{
xmhhttp=new ActiveXObjec("Msxml2.XMLHTTP");
}
catch (e)
{
try{
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
catch (e){
try{
xmlhttp=new XMLHttpRequest();
}
catch (e){}
}
}
xmlhttp.onreadystatechange=function()
{
if(4==xmlhttp.readyState)
{
if(200==xmlhttp.status)
{
document.getElementById("tip").innerHTML=xmlhttp.responseText;
}
else
{
alert(xmlhttp.status);
}
}
}
var url="search.asp?search="+escape(search)+"&t="+new Date().getTime();
xmlhttp.open("get",url);
xmlhttp.send(null);
}
-->
</script>以下是search.aspx
<%
Response.CharSet="GB2312"
text = trim(request("search"))
set rs = server.createobject("adodb.recordset") if text="" then
sql ="select jydxx.jydbh,jhrq,sdz,hw_id,hwmc,sxhh,shrxm,jianshu,shangfu,xianjin,yuejie,qiankuan,dshk,huikou,zyf,jsfs,jydzt,hwzt,thfs from jydxx,hwxx where jydxx.jydbh = hwxx.jydbh "
end if
if text<>"" then
sql = "select jydxx.jydbh,sdz,hw_id,hwmc,sxhh,shrxm,jianshu,shangfu,xianjin,yuejie,qiankuan,dshk,huikou,zyf,jsfs,jydzt,hwzt,thfs from jydxx,hwxx where jydxx.jydbh = hwxx.jydbh and sdz like '%"&text&"%' "
end if
rs.open sql,conn,1,1
If rs.eof Then
str="<table id=""tb1"" class=""tb"" border=""0"" cellpadding=""0"" cellspacing=""0"" ><tr class=""tbhead"" ></tr></table>"
response.write str
Else
rs.pagesize=10000
page=clng(Request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage = page str="<table id=""tb1"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""tb"" onclick=""SetCheck(this)""><tr class=""tbhead"" ></tr>"
for i=1 to rs.pagesize
str=str&"<tr><td id=""hw_id"" id=""hw_id"" width=""5%""><input type=""checkbox"" value="&rs("hw_id")&" name='ids'></td><td id=""jydbh"" align=""center"" width=""23%"">"&rs("jydbh")&"</td><td id=""sdz"" align=""center"" width=""13%"">"&rs("sdz")&"</td><td id=""shrxm"" align=""center"" width=""15%"">"&rs("shrxm")&"</td><td id=""sxhh"" align=""center"" width=""12%"">"&rs("sxhh")&"</td><td id=""hwmc"" align=""center"" width=""11%"">"&rs("hwmc")&"</td><td id=""jianshu"" align=""center"" width=""8%"" ><input type=""text"" value="&rs("jianshu")&" size=""4"" maxlength=""5"" readonly=""true""></td><td id=""hwzt"" align=""center"" width=""13%"">"&rs("hwzt")&"</td></tr>"
rs.movenext
If rs.EOF Then
Exit For
End If
Next
End If str=str & "</table>"
rs.close
response.write str
%>
谁帮我改改 在C#下运行,详细点
最好分成aspx和cs 文件!!!谢谢
解决方案 »
- 急问:SSIS package
- 获得键盘问题
- 条形码打印程序
- 这段代码转换为C#应该是什么样子的?
- 关于数学表达式的判断?
- ------------------谁看过这本书(win32api编程的),告诉我一下。-------------------
- 请教
- 象editplus那样在文件上点击右键再选择editplus,就能把当前所选的文件在已经打开的editplus中打开.这是怎样实现的?
- 如何限制程序只启动一个。例如:"回收站"只会启动一个,除非你关闭后再启动
- c#winform自制一个数字输入键盘,文本如何传送?
- DataGridView里加ComboBox问题
- c#关于目录与文件操作几个小问题
网上搜一下有很多
如图: