WebWork Magazin - Webseiten erstellen lassen, Online Medien, html

Webhoster, Webhosting Provider und Domain registrieren

Home | Registrieren | Einloggen | Suchen | Aktuelles | GSL-Webservice | Suleitec Webhosting
Reparatur-Forum | Elektro forum | Ersatzteilshop Haushalt und Elektronik


Homepage und Webhosting-Forum

ASP, Python, Perl, CGI, Ruby, Ajax, GO, ... Vom Syntax Error bis zum Release, hier ist Platz für Diskussionen !


Forum » Sonstige Web-Programmiersprachen » Formular » Antworten
Benutzername:
Passwort: Passwort vergessen?
Inhalt der Nachricht: Fett | Kursiv | Unterstrichen | Link | Bild | Smiley | Zitat | Zentriert | Quellcode| Kleiner Text
Optionen: Emailbenachrichtigung bei Antworten
 

Die letzten 5 Postings in diesem Thema » Alle anzeigen
von filiz
Ich hab die Lösung schon selber gefunden!
Danke aber an die die mir geantwortet haben!

von filiz
Hat vielleicht jemand einen fertigen beispiel-code?!?!?
Es wäre sehr hilfreich denn ich sitze schon fast eine woche an dieser sache und komme nicht weiter!!!!
von filiz
<%@ Language=VBScript %>
<%
Function BuildConnectionString()
set clsDEFISS = Server.CreateObject("DEFISSDLL.DEFISSClass")
s = ""
if not (clsDEFISS is Nothing)then
txtUser = clsDEFISS.UserID
txtPassword = clsDEFISS.Password
s = "Persist Security Info=False;"
s = s & "User ID="&txtUser&";"
s = s & "Password="&txtPassword&";"
s = s & "Initial Catalog=AdminDEFISS;"
set oNet = CreateObject("WScript.Network")
s = s & "Data Source=" +oNet.ComputerName
set oNet = nothing
end if
BuildConnectionString = s
set clsDEFISS = nothing
End Function
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0" CONTENT="text/html; CHARSET=Windows-1250">
<link rel="STYLESHEET" href="visualasp.css" type="text/css">
<form name="form1" method="post" action="">
<script language="javascript">
function UpdateLinks(sNode)
{
alert ('Selected item:' + sNode);
document.form1.action = "LeereSeite.asp";
document.form1.submit()
}
</script>
<script language="javascript">
function ClickDB(ID)
{
document.form1.action = "Rechts1.asp?Selected=" +document.form1.select1.value&Areatext=+document.form1.text1[selectedIndex].value;
document.form1.submit()
}
</script>
<body bgcolor="#FFFFFF">

<%
Dim oConn
Dim strConn
Dim sConn
Dim oSqlStmt, oSqlStmt1, oSqlStmt2
Dim oRs, oRs1, oRs2
Dim MySqlStmt, MySqlStmt2
Dim sID, sUID
Dim sLev, sLev1, sLev2
Dim cmd, cmdMit, cmdMit2
Dim fso, tmpID, strUID
Dim objFile
Dim sCatalog, sCube, sDescr
Dim sDisp, sServer, sAdminDB
Dim sDB

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(Server.MapPath("test.txt"), 8)

sID = Request.QueryString("ID")
objFile.writeline (sID)
sDB = Request.QueryString("Selected")
objFile.writeline(sDB & ": tatsache")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "sqloledb"
strConn = BuildConnectionString()
oConn.Open strConn

set oSqlStmt = Server.CreateObject("ADODB.Command")
set oRs = Server.CreateObject("ADODB.Recordset")
oRs.CursorType = 2

set oSqlStmt1 = Server.CreateObject("ADODB.Command")
set oRs1 = Server.CreateObject("ADODB.Recordset")
oRs1.CursorType = 2

set oSqlStmt2 = Server.CreateObject("ADODB.Command")
set oRs2 = Server.CreateObject("ADODB.Recordset")
oRs2.CursorType = 2

Set oSqlStmt.ActiveConnection = oConn
theYear = Year(Date) & vbCrLf

' hier befülle ich meine form und diese sachen sollen stehenbleiben wenn ich unten beim selectbox was auswähle!
If sID <> "" Then
oSqlStmt.CommandText = "SELECT Arbeitsanteil,Telefon,eMail,
RestrictedAccess from DEFISSUser where UserID = " & sID
objFile.writeline (oSqlStmt.CommandText)
Set oRs = oSqlStmt.Execute

sUID = (oRs.Fields(0))
objFile.writeline (sUID)
If oRs.Fields(1) = "" Then
sLev = "0"
Else
slev = (oRs.Fields(1))
End if
If oRs.Fields(2) = "" Then
sLev1 = "0"
Else
sLev1 = (oRs.Fields(2))
End if
If oRs.Fields(2) = "" Then
sLev2 = "0"
Else
sLev2 = (oRs.Fields(3))
End if
oRs.Close
End if
%>
<TABLE class="ListView" align="center" width="100%" bgcolor="#FEF1E9">
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">AA</TD>
<TD><INPUT size="30%" value="<%Response.Write(Cstr(sUID))%>" type="text" id="text1" name="AA" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">Telefon</TD>
<TD><INPUT size="30%" value="<%Response.Write((sLev))%>" type="text" id="text1" name="Telefon" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">eMail</TD>
<TD><INPUT size="30%" value="<%Response.Write((sLev1))%>" type="text" id="text1" name="eMail" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633;">&nbsp;</TD>
<TD size="30">&nbsp; </TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">Zugriff</TD>
<TD><INPUT size="30%" value="<%Response.Write((sLev2))%>" type="text" id="text1" name="Zugriff" style="background-color:#FEF1E9;"></TD></TR>
<TR bgcolor="#D9EAE1">
<TD STYLE="font-family:arial;font-size:8pt;font-weight:bold;color:#006633">Eingerichtete Würfel</TD>
<td>
<SELECT size="5" style= "width:100pt" id="select1" name="select1" style="background-color:#FEF1E9;" onclick="ClickDB((<%Response.Write(cstr(Request.QueryString("ID")))%>)">
<%
'hier ist meine selectbox die befüllt wird mit datenbanknamen und Würfelname
if sID <> "" then
MySqlStmt = "SELECT CubeInfo.Cube AS Cube, AdminDB as DB "
MySqlStmt = MySqlStmt & "FROM CubeAccess INNER JOIN "
MySqlStmt = MySqlStmt & "CubeInfo ON CubeAccess.CubeID = CubeInfo.CubeID "
MySqlStmt = MySqlStmt & "WHERE CubeAccess.UserID = " & sID
objFile.writeline (MySqlStmt)

oSqlStmt.CommandText = MySqlStmt
oSqlStmt.CommandType = 1
set oSqlStmt.ActiveConnection = oConn
oRs.Open oSqlStmt, , 1

do while not oRs.EOF
sCube = cstr(oRs.Fields(0))
objFile.writeline (sCube)
sAdminDB = cstr(oRs.Fields(1))
objFile.writeline (sAdminDB)

%>
<OPTION value = "<%Response.Write(cstr(sAdminDB))%>" Selected > <%Response.Write(cstr(Trim(sCube)))%>


<%
oRs.MoveNext
Loop
oRs.Close
end if

%>
</select>
</TR>
<TR align="center">
<TD><INPUT type="button" value="Login zurücksetzen" id="button1" name="button1" style="background-color:#D9EAE1;" onclick="Click1()"></TD>
<TD><INPUT type="button" value="Aktive Sitzung beenden" id="button2" name="button2" style="background-color:#D9EAE1;" onclick="Click2()"></TD>
<TD><INPUT type="button" value="Ändern" id="button3" name="button3" style="background-color:#D9EAE1;" onclick="Click3()"></TD>
<TD><INPUT type="button" value="Löschen" id="button4" name="button4" style="background-color:#D9EAE1;" onclick="Click4()"></TD>
</TR>
</TABLE>
<%
oConn.Close
set oConn = Nothing
%>

</body>
</form>
</head>
</html>
von zeTo
poste doch einfach, irgendjemand wird wohl was dazu sagen können.
von filiz
Wer kann den aus diesem Forum asp? Kann ich jemanden anderen Fragen?

Nach oben