konvertere asp til .net
Hejsa EKan nogen hjælpe mig med at komme i gang med at konvertere et ASP projekt til et .NET (C#)
Jeg har indtil nu benyttet med en del af includefiler, men skal nu finde en anden måde at gøre det på. Derudover skal jeg have styr på brugen af klasser og metoder.
Min ASp løsning er noget CMS der har "undersøgt" hvilket domæne siden har kørt på, for derved at bestemme hvilken DB sideopsætning skal hentes fra. DB oplysninger og farver skal bruges på alle sider, så jeg har før brugt en inklude fil til det, men prøver nu med en klasse.
Og så er der noget menu som går igen på alle sider, men dhtml skal vel laves i en costom control eller hvad...
Vil nogen hjælpe med at komme i gang med det her, og samtidig fortælle hvor det er rigtigst at gøre de forskellige ting. global.asax, web.config, klasser osv.
Som det fremgår nedenfor hentes mange variable fra konstanter.asp
Koden er forkortet en del, men bare jeg får styr på det der er, så skal resten nok komme.
Min "gamle" default.asp:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<!--#INCLUDE FILE="include/konstanter.asp" -->
<%
page = request("page")
If aaben = "on" Then
If page <> "" Then
siden = page & ".asp?tekstID=" & request"tekstID")
Else
siden = "forside.asp"
End If
Else
siden = "lukket.asp"
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/1999/REC-html401-19991224/frameset.dtd">
<html>
<head>
<title> <%=shopnavn%> </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="keywords" content="<%=metakeyword%>">
<meta name="description" content="<%=metadesc%>">
<link rel="shortcut icon" href="favicon.ico">
</head>
<frameset cols="<%if centreret = "on" then%>*,<%end if%><%=width+17%>,*" border="0" frameborder="no">
<%if centreret = "on" then%><frame src="x.asp" name="x" scrolling="no"><%end if
if egentop = "on" then%><frameset rows="<%if egentop = "on" then response.write(topHeight & ", ") end if%>*" border="0" frameborder="no"><%end if%>
<%if egentop = "on" then%><frame src="/include/egentop.asp" name="cShopTop" scrolling="no"><%end if%>
<frame src="<%=siden%>" name="cShopMain" scrolling="auto">
<%if egentop = "on" then%></frameset><%end if%>
<frame src="x.asp" name="y" scrolling="no">
</frameset>
</html>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Den gamle konstanter.asp:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<!--#INCLUDE FILE="funktioner.asp" -->
<!--#INCLUDE FILE="Conn_open.asp" -->
<%
aktuelSide = lCase(request.ServerVariables("URL"))
If left(aktuelSide, 1) = "/" Then
aktuelSide = right(aktuelSide, len(aktuelSide)-1)
End If
If inStr(aktuelSide, "/") Then
S1 = split(aktuelSide, "/")
aktuelSide = S1(1)
End If
If Session("tilbage") = "" Then
Session("tilbage") = "x"
aktuelSide = "x"
End If
Select Case aktuelSide
Case "x"
Session("tilbage") = "forside.asp"
Case "vis_kurv.asp
Session("tilbage") = aktuelSide & "?vgID=" & Session("vgID") Case "vis_produkt.asp",
Session("tilbage") = Session("tilbage")
Case Else
Session("tilbage") = "java script:history.back(-1);"
End Select
SQLStr = "SELECT * FROM konstanter WHERE kID = 1"
Set hentKonst = Conn.Execute(SQLStr)
If Not hentKonst.EOF Then
farve1 = hentKonst("farve1")
farve2 = hentKonst("farve2")
farve3 = hentKonst("farve3")
mainColor = hentKonst("mainColor")
borderColor = hentKonst("borderColor")
font = hentKonst("font")
fontsize = hentKonst("fontsize")
mainFontColor = hentKonst("mainFontColor")
fontfarve1 = hentKonst("fontfarve1")
End If
Set hentKonst = Nothing
%>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Den gamle Conn_open.asp:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
domain = Replace(SERVER_NAME, "www.", "")
xSplit = Split(domain, ".")
xCount = uBound(xSplit)
If xCount < 2 Then
SQLStr = "SELECT a.dbName, a.dbUser, a.dbPass, a.webID FROM admin a, domains d WHERE a.webID = d.webID AND d.domain = '" & domain & "'"
End If
Set hent = Conn.Execute(SQLStr)
If Not hent.EOF Then
webID = hent("webID")
dbName = hent("dbName")
dbUser = hent("dbUser")
dbPass = hent("dbPass")
Else
webID = 0
dbName = ""
dbUser = ""
dbPass = ""
End If
Set hent = Nothing
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=" & dbName & "; UID=" & dbUser & "; PWD=" & dbPass & ";"
Conn.Open ConnStr
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
min gamle forside.asp og mange andre sider:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<!--#INCLUDE FILE="include/head.asp" -->
<!--#INCLUDE FILE="include/js_menu.asp" -->
</head>
<body class="shopbody" onLoad="init();">
<!--#INCLUDE FILE="include/top.asp" -->
<!--#INCLUDE FILE="include/menuogleft.asp" -->
<%=forsideTekst%>
<!--#INCLUDE FILE="include/bund.asp" -->
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
