Omkodning af asp til asp.net VB, betaling
HejJeg har 1 sider i asp 3.0 med ASPHTTP koder, som jeg har kigget lidt på ang. ASP.NET VB med HTTP request/response.
Men har ikke kunne finde hjælp til at få det lavet jeg har fundet frem til hvordan jeg henter en side i asp.net men kan så ikke hente oplysninger ud som jeg skal bruge.
Kan nogle hjælpe mig vil gerne betale for det hvis det er det der skal til så bare skriv hvad i mener I vil have for det.
min asp.net side er dette:
<%@ Page Language="VB" Debug="True" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace="System.Text" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim request As HttpWebRequest = CType(WebRequest.Create("http://www.dbu.dk/sr/clubTeam.aspx?clubid=761"), HttpWebRequest)
Dim response As HttpWebResponse = CType(Request.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = New StreamReader(response.GetResponseStream(),Encoding.GetEncoding("iso-8859-1"))
Dim input As String = reader.ReadToEnd()
Dim StartCode As Integer = input.IndexOf("<!-- CLUBTEAMS START -->")
Dim EndCode As Integer = input.IndexOf("<!-- CHILD TEMPLATE END -->")
Dim Output As String = input.Substring(StartCode, EndCode - StartCode)
someLabel.Text = Output
End Sub
</script>
<html>
<head runat="server">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="content-language" content="dan" />
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label ID="someLabel" runat="server"></asp:Label>
</form>
</body>
</html>
Jeg kunne godt tænke mig at det ville kunne komme til at virke som dette i asp 3.0, kan nogle hjælpe:
<% Response.Buffer = True %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim page
page = Request.QueryString("page")
Response.Buffer = True
Session.LCID = 1030
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<!--#include file="/dsn.asp"-->
<%
Call OpenDB
strSQL = "SELECT [Team ID], [Team_Name], [Team_Year], [Team_Link2] FROM List"
if request.querystring("page") = "40-33" then
strSQL = strSQL & " WHERE [Team_Link2] NOT LIKE '%program%'"
strSQL = strSQL & " AND [Team_Link2] NOT LIKE '%position%'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '21'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '18'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '16'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '14'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '12'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '10'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '8'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '5'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '4'"
elseif request.querystring("page") = "21-16" then
strSQL = strSQL & " WHERE [Team_Link2] NOT LIKE '%program%'"
strSQL = strSQL & " AND [Team_Link2] NOT LIKE '%position%'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '40'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '33'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '14'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '12'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '10'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '8'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '5'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '4'"
elseif request.querystring("page") = "14-10" then
strSQL = strSQL & " WHERE [Team_Link2] NOT LIKE '%program%'"
strSQL = strSQL & " AND [Team_Link2] NOT LIKE '%position%'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '40'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '33'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '21'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '18'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '16'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '8'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '5'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '4'"
elseif request.querystring("page") = "8-4" then
strSQL = strSQL & " WHERE [Team_Link2] NOT LIKE '%program%'"
strSQL = strSQL & " AND [Team_Link2] NOT LIKE '%position%'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '40'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '33'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '21'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '18'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '16'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '14'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '12'"
strSQL = strSQL & " AND [Team_Year] NOT LIKE '10'"
End If
strSQL = strSQL & " ORDER BY [Team ID] ASC;"
Set objRS = objConn.Execute(strSQL)
Do While Not objRS.EOF
strLine = objRS("Team_Link2")
strTN = objRS("Team_Name")
Set re = New RegExp
re.Global = True
re.Pattern = "teamid=(\d+).*poolid=(\d+)"
Set matches = re.Execute(strLine)
For Each m In matches
strtid = m.SubMatches(0)
strpid = m.SubMatches(1)
Next
Dim strResult
strUrl1 = "http://www.dbu.dk/sr/programTeam.aspx?teamid="
strUrl2 = "&poolid="
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.Url = trim(" "&strUrl1&strtid&strUrl2&strpid&" ")
HttpObj.FollowRedirects = True
HttpObj.RequestMethod = "GET"
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B; Windows NT)"
strResult = HttpObj.GetURL
Dim Read, ReadEnd, Matchnumber, Matchdate, Hometeam, Awayteam, Playground, Score
Read = instr(1,strResult,"PROGRAM START")
Read = instr(Read,strResult,"<table")
Read = instr(Read,strResult,"</table")
Read = instr(Read,strResult,"<table")
while Read > 0
Score = " "
Read = instr(Read,strResult,"linkUl") + 8
ReadEnd = instr(Read,strResult,"<")
Matchnumber = mid(strResult,Read,ReadEnd-Read)
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">")
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">") + 1
ReadEnd = instr(Read,strResult,"<")
Matchdate = mid(strResult,Read,ReadEnd-Read)
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">")
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">") + 1
ReadEnd = instr(Read,strResult,"<")
Hometeam = mid(strResult,Read,ReadEnd-Read)
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">")
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">") + 1
ReadEnd = instr(Read,strResult,"<")
Awayteam = mid(strResult,Read,ReadEnd-Read)
Read = instr(Read,strResult,"<span")
Read = instr(Read,strResult,">") + 1
ReadEnd = instr(Read,strResult,"<")
Playground = mid(strResult,Read,ReadEnd-Read)
Read = instr(Read,strResult,"<td")
Read = instr(Read,strResult,">") + 1
ReadEnd = instr(Read,strResult,"<")
Score = mid(strResult,Read,ReadEnd-Read)
Playground = Replace(Playground, "'", "\")
strDate = Replace(Matchdate, " ", " ")
Hometeam = Replace(Hometeam, "/", " ")
Hometeam = Replace(Hometeam, "\", " ")
Awayteam = Replace(Awayteam, "/", " ")
Awayteam = Replace(Awayteam, "\", " ")
TheDay = left(strDate, 2)'
TheMonth = mid(strDate, 4, 2)'
TheYear = mid(strDate, 7, 2)'
TheTime = mid(strDate, 10)'
strSQL = "SELECT count(*) AS antal FROM Program"
strSQL = strSQL & " WHERE [Match_Number] = '" & Matchnumber & "'"
Set objRSProgram = objConn.Execute(strSQL)
If objRSProgram("antal") = 0 Then
strSQL = "INSERT INTO Program (Match_Number, Match_Day, Match_Month, Match_Year, Match_Time, Home_Team, Away_Team, Play_Ground, Total_Score, Team_Name) VALUES ('" & Matchnumber & "', '" & TheDay & "', '" & TheMonth & "', '" & TheYear & "', '" & TheTime & "', '" & Hometeam & "', '" & Awayteam & "', '" & Playground & "', '" & Score & "', '" & strTN & "')"
End If
objConn.Execute(strSQL)
Read = instr(Read,strResult,"<table")
wend
objRS.MoveNext
Loop
Set HttpObj = nothing
Call CloseDB
Response.Write("Data'en er nu gemt i databasen")
%>
</body>
</html>
