ASP代码改写成.net的

[selg1984]

flight.asp

<!--#include file="function.asp"-->
<%
'==================================
'获取表单开始
'==================================
city1=request("city1") '城市三字码
city2=request("city2") '城市三字码
date1=request("Last_Update_Date") '出发日期 格式2009-05-01
'==================================
'获取表单结束
'==================================
'用户参数设置
'==================================
uid="" ?'你的接口ID
pw="" '你的接口密码
'==================================
'end
'==================================
'==================================
'显示航班开始
'==================================
hb=gatdata(city1,city2,date1,uid,pw)
a1=split(hb,"<h>")
if ubound(a1)>0 then
response.write("共有"&ubound(a1)&"个航班！<br><br>")
for i=1 to ubound(a1)
a2=split(a1(i),",")
response.write("航班号："&a2(0)&"<br>")
response.write("起飞时间："&a2(1)&"<br>")
response.write("到达时间："&a2(2)&"<br>")
response.write("机型："&a2(3)&"<br>")
response.write("基建费："&a2(4)&"<br>")
response.write("燃油费："&a2(5)&"<br>")
response.write("全价："&a2(6)&"<br>")
response.write("最低折扣："&a2(7)&"<br>")
response.write("最低价："&a2(8)&"<br>")
next
else
response.write("错误代码")
response.write(hb)
end if
%>


function.asp
<% 获取航班数据函数
function getdata(city1,city2,date1,uid,pw)
ur="http://www.66666999.com/airport/flight.asp"
'读取文件并创建文件为18.txt
Set xPost=CreateObject("Microsoft.XMLHTTP")
s="city1="&city1&"&city2="&city2&"&date1="&date1&"&uid="&uid&"&pw="&pw
xPost.Open "post",ur,False
xPost.SetRequestHeader "Content-Length",lencs
xPost.SetRequestHeader "Content-Type" "application/x-www-form-urlencoded"
xPost.Send s
s=xPost.getResponseHeader("set-cookie")
Set sGet=CreateObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.write(xPost.responseBody)
sGet.saveFile server.MapPath("9.txt")
set sGet=nothing
set sPost=nothing
set xPost=nothing
set MyFileObject=server.createobject("scripting.FileSystemObject")
ss= server.mappath("9.txt")
set MyTextFile=MyFileObject.openTextFile(ss)
getdata=MyTextFile.readall()
end function
%>

[RogerChen2005]

要做asp.net,最好把asp忘干净，不然做asp.net永远会觉得别扭。思考问题和应用解决问题的思路完全不同了。

[selg1984]

这是别人提供的接口 我用.net调用 那该如何调用呢

[zhengli190602169]

要这样改啊? 麻烦咯!

[selg1984]

请您指教 多谢

[asdf4525qd]

直接重新做，
其实现在我有很多学生都在问我这个问题，原因是他们做的毕业设计项目题目是用asp.net做，可是网上下的源代码都是asp的。。。。。。hoho

[selg1984]

重新做？
不会asp啊

[asdf4525qd]

你会asp.net的话就能读得懂代码了，即使你没学过asp

[selg1984]

哦 这样啊 呵呵

[共同的需要]

最好重新来写
　

[llsen]

up

[mezzi100]

貌似不能直接更改吧，asp.net需要拖拽很多控件到页面上，你上面的代码里似乎用了ajax和写文本文件，在asp.net里有专门的ajax控件使用，不好改写，直接用控件实现更加方便。

[dengyun_1223]

mark

[zouli_aaa]

改asp.net是很麻烦,最近我就在做一个asp的项目改成asp.net的，不懂asp，改起来是蛮麻烦。
只要看懂asp的意思就可以了，重做成asp.net的

[xkyue23]

看看显示结果，功能，自己做不是很好吗

[selg1984]

重新来写 不会啊