跪求高手制作一个ASP代码网页（有点特殊）追加300分
循环里面的就可以了
打的好累的哈，用的好好记得采纳哈
商城5600财富值=10元话费，你认为1000财富很多吗？一题最多200分。
其次，需要些代码你可以等谁给你写完了你再发表一下你的感言才合适！
利用HttpRequest获得目标网站返回的html代码.再从其中找到你想要的东西就OK了.
这样吧,你给我一个实际的快速号.我帮你做.
以下是代码:
<%@language="javascript"%>
<%
/**
*这是用javascript写的查询快递信息的程序
*作者: Alan http://www.everalan.com.cn
*写给: zjweixiu
*/
//这个地址是快递结果页面,我们要得到页面的所有HTML源码
url = "http://www.yto.net.cn/html/sqljgmx.asp?NumberText=0085427571&" + Math.random();
//创建一个XmlHttp对象,Ajax必备,你知道吗?
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP")
//打开请求 get方式, 地址, 同步方式
xmlHttp.open("get", url, false)
//设置来源页,这是破解禁止外部提交的关键
xmlHttp.setRequestHeader("REFERER","http://www.yto.net.cn/html/support.asp")
//发送并接收请求
xmlHttp.send(null)
/** 这个程序的复杂性正是体现在这里
* .XmlHttp获得的结果的编码是根据接收的头信息中的Content-Type:text/html; charset=gb2312得到的.
* 但是目标网站没有设置后面的编码.但实际是gb2312输出的
* 于是XmlHttp把得到的结果看成默认的utf-8编码,再转换成当前页的gb2312码.
* 所以我们还要再把得到的转回去,于是用到了下面的函数
*/
//这是网上找的转换代码函数
function bytesToBSTR(body,Cset){
var objstream;
objstream = Server.CreateObject("Adodb.Stream");
objstream.Type = 1;
objstream.Mode = 3;
objstream.Open();
objstream.Write(body);
objstream.Position = 0;
objstream.Type = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.Close;
return(bytesToBSTR);
}
%>
<base href="http://www.yto.net.cn/html/"/>
<%
Response.Write(bytesToBSTR(xmlHttp.Responsebody, "gb2312"))
%>
<%
/**
尾声:到现在,基本需求已经完成.
如果想到高级方面,例如从返回的信息中只取出途经的目的地和时间,
则还需要用到正则表达式来提取
这个我也做过.呵
希望我写的东西能给你一些帮助
2007年12月12日中午完成
**/
最烦“跪求”的人，一点自尊也没有，垃圾！
我 制作网页 你重新说下 我可以帮你 或者给我消息也行
可以做到
300分不行
300RMB可以试试
：）
我看给人家分 不行 好是用金钱 来比较实际。
什么意思?只是要一个查询是么?把数据库给我 我帮你弄
...of Learning As I See It,要求150字左右.求高手赐教,
The Best Way of Learning As I See It As I see it, the best way of learning is by doing. Learning by doing means engaging in hands-on activities and gaining practical, real-world experience. This approach is effective because it helps us to develop our skills and knowledge in...
求VB高手编一个打印程序
'宣告打印字符串 Dim PrintString As String '宣告打印字符串宽度 Dim StrWidth As Single '你要输出的字符串 PrintString = Me.Text1.Text '计算字符串宽度 StrWidth = Printer.TextWidth(PrintString)'设定印字头横向位置 Printer.CurrentX = Printer.ScaleWidth - StrWidth '打印机印出该字符串 Prin...
急求编程高手: 如何用VB编写一个按钮,打开已经保存好的Mastercam X5的图...
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '控件代码 Private Sub Command1_...
求高手帮忙写一个删除excel表格第一行的批处理代码。。万分感谢!!!_百...
是多个sheet还是多个文件的某个特定表？假设一个文件中的所有sheet删除第一行，公式如下：Sub delete()'' delete 宏 '' 快捷键: Ctrl+q 'Dim sht As Worksheet Application.ScreenUpdating = False For Each sht In Worksheets sht.Activate sht.Rows("1:1").Select Selection.delete Shift:=xlUp ...
关于as much...as用法里面的一个例句
感觉这个句子很有问题，那个bore about是乱入了么，但是去掉的话主句又没有谓语。。。
求高手赐教,设计一个求长方体的表面积和体积vb程序代码?
Private Sub Form_Click()Dim x As Single, y As Single, z As Single, s As Single x = InputBox(" 请输入长方体的长")y = InputBox("请输入长方体的宽")z = InputBox("请输入长方体的高")s = 2 * (x * y + y * z + x * z)Print "s="; s End Sub ...
一个很多人都没办法解决的问题,英语高手进!
做so解。相当于so did...，即：（后面说到的事物）也是这样的。整个句子是说：【手持式相机的发明震惊了19世纪的社会，而柯达迷们在海滩上到处转、对着晒日光浴的人拍照，也让人震惊不已】
求高手设计一excel中的循环函数,使得,在同一个单元格每当输入一个数字...
如果还不能实现，那就是你的宏安全级别设置太高，在菜单“工具”-“宏”=“安全性”，将级别设置为“中”或“低”，然后保存重新打开。Private Sub Worksheet_Change(ByVal Target As Range)Dim i i = 1 If Target.Column = 1 And Target.Row = 1 Then Do Until Cells(i, 3) = ""i =...
一个英语句子结构的分析---高手帮忙
The state-run company 是主语 is required是谓语 后面整个是 动词不定式 短语 作主补 其中 to make是动词不定式 its accounts是不定式的宾语 as transparent是宾补 as possible是 宾补的状语 for its staff to monitor the use of money是不定式to monitor的复合结构 作.前面不定式to make的目的...
求英语高手提供一个关于最近比较流行的话题的presentation急啊...
As we know, we would feel lonely if we didn't even have a friend. But it doesn't mean we could depend on our friends all the time. There is a famous motto saying that “A friend is like a quilt with cotton wadding, but the real thing that keeps you warm is your own...
晏泊屏风： dim fobj, fs, file, str, content file = ＂1.txt＂ '读取文件 str = ＂123456＂ '判断搜索的字符串 file = Server.MapPath(file) '转换成绝对路径 set fobj = Server.CreateObject(＂Scripting.FileSystemObject＂) '创建文件对象 if(not fobj.FileExists(file)) then '判...
南溪县17367421813： 制作修改密码的ASP网页的代码? - ？
晏泊屏风： <script language=＂javascript＂> <!-- function qq() { if( document.form1.password1.value!=document.form1.password2.value) { alert('请填写相同密码!'); return false; } } //--> </script> 注:form1是form的名字,password1与password2分别为两个密码输入框,在form标签里添加函数触发,例如<form name=＂form1＂ method=＂post＂ action=＂121.asp＂ onSubmit=＂return qq()＂>
南溪县17367421813： asp网页制作 - ？
晏泊屏风： (...
南溪县17367421813： ASP 网页 跪求代码？
晏泊屏风： 首先说下:按多少字(比如你的200字)分页,不怎么合适(因为出现英文后,有时很恶心),个人建议按多少行(比如一页120行)来分页,版面的高度也能控制,也更美观.下面是按行分页代码. <% 连接数据库: '此处代码换成你自己的,...
南溪县17367421813： 如何创建ASP网页 - ？
晏泊屏风： 1、ASP是动态服务器页面(Active Server Page)的英文缩写,ASP的网页文件的格式是 .asp.现在常用于各种动态网站中.和html纯静态页面不一样,他需要通过服务器运行解析成纯文本页面透过浏览器展现给浏览者查看.如果直接查看文件...
南溪县17367421813： 急需高手:求教如何用ASP制作动态网页？
晏泊屏风： 如果你ASP的脚本语言,ASP内置对象,内置组件等都学完了,你可以去网上下载一套ASP网站源码,来利用这套源码来制作动态网页!
南溪县17367421813： 求ASP网页设计的作业 求ASP编程高手弄个ASP网页 要求连接数据库 本人QQ291911329 - ？
晏泊屏风： Const DataName=＂database/ksijdnjxchud.mdb＂ '数据库路径 Dim startTime,ZD_AccessTimes startTime=Timer() ZD_AccessTimes=0 set conn=server.CreateObject(＂adodb.connection＂) DBPath = Server.MapPath(DataName) conn.open ＂...
南溪县17367421813： asp网站制作代码？
晏泊屏风： If IsObject(oConn) = True Then Exit Sub ' 你可以不需要打开数据库连接对象而直接打开记录集对象,但如果你需要打开多个记录集对象的话,效率是很低的. ' 如果你不创建一个数据库连接对象,ADO会在每个记录集打开时自动创建一个新的数...
南溪县17367421813： asp制作静态网页？
晏泊屏风： <img src=＂a.jpg＂ /> <!-- 这一步是插入一张名为a.jpg的图片,图片需放在网页文件夹下-->
南溪县17367421813： 急!!用ASP编写网页!？
晏泊屏风： 很容易的代码啊 你在第一个页面中加入代码 session(＂username＂)=request.form(＂username＂) session(＂password＂)=request.form(＂password＂) 意思是把你提交的用户名和密码保存到session中 在第二个页面中判断 if session(＂username＂)==＂＂ and session(＂password＂)==＂＂ then response.redirect ＂login.asp＂ end if
