 |
| Hinweise |
Willkommen im TP-Hilfe-Forum!Dies ist ein Forum zu den Themen Photoshop, Dreamweaver, Flash, Selbständigkeit und mehr, in dem Du Hilfe, Anleitung oder eine Lösung zu Deinen Problemen erhältst. Aktuell bist Du in unseren Foren als Gast mit reinen Leserechten unterwegs. Wenn Du Dich registrierst, kannst Du eigene Themen verfassen, Deine Frage stellen und privat mit anderen TPlern kommunizieren. Weitere Foren werden zugänglich, und Du wirst – falls gewünscht – per Mail über neue Beiträge informiert. Die Registrierung ist schnell und kostenlos. Sollten bei der Registrierung Fragen auftauchen, reicht ein Klick in unsere Hilfe - Häufig gestellte Fragen oder eine kurze Mitteilung an das Support-Team. Viel Spaß bei Traum-Projekt.com |
19.09.2003, 10:25
|
#1
|
|
TP-Member
Registriert seit: Sep 2003
|
Popup+details???
Hallo, ich hab ein problem, ich eiß nicht wie ich in dem unten stehenden script bei der Ausgabe ein Detals Button hinzufüge, wo wenn ich auf diesen Button Klicke, ein neues Fenster öffnet welche Informationen zu der Ausgegebenen DB Zeile gibt, (also sprich, alle informationen die in der DB stehen).
Falls sich jemand auskennt bitte bescheid geben.
Suche.asp:
Code:
<head>
<base target="Unten">
</head>
<%
dim conn,rs
dim strUserName, strUserVName, strUserAccount, strITBAccount, strRollenName, lngErledigt, lngRKritisch, lngRGenehmigt, lngUVGenehmigt
dim SQL
%>
<body bgcolor="#D2D2D2" topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">
<form method="POST" id=form1 name=form1 ACTION="ausgabe.asp">
<table align="center">
<tr><td>Nachname:</td><td><INPUT type="text" name="strUserName" value="<%=Request.Form("strUserName")%>"></td>
<td> Erledigt:</td><td><select name="lngErledigt" size="1"><option value="3" selected><option value="1">Ja<option value="0">Nein</select></td></tr>
<tr><td>Vorname:</td><td><INPUT type="text" name="strUserVName" value="<%=Request.Form("strUserVName")%>"></td>
<td> Kritisch:</td><td><select name="lngRKritisch" size="1"><option value="3" selected><option value="1" >Ja<option value="0">Nein</select></td></tr>
<tr><td>User Account:</td><td><INPUT type="text" name="strUserAccount" value="<%=Request.Form("strUserAccount")%>"></td>
<td> Genehmigung durch Rollenverantwortlichen:</td><td><select name="lngRGenehmigt" size="1"><option value="3" selected><option value="1">Ja<option value="2">Nein<option value="0">keine Notwendig</select></td></tr>
<tr><td>Beantragende/r (NT Login):</td><td><INPUT type="text" name="strITBAccount" value="<%=Request.Form("strITBAccount")%>"></td>
<td> Genehmigung durch Userverantwortlichen:</td><td><select name="lngUVGenehmigt" size="1"><option value="3" selected><option value="1">Ja<option value="2">Nein<option value="0">keine Notwendig</select></td></tr>
<tr><td>Rolle:</td><td><INPUT type="text" name="strRollenName" value="<%=Request.Form("strRollenName")%>"></td></tr>
<tr><td></td><td><INPUT type="submit" value="Suchen" name=submit>
<INPUT type="reset" value="Clear" name=reset></td></tr>
</table>
</form>
<%
if Request.Form("submit") = "Suchen" then 'and (Request.Form("strUserName") <> "" or Request.Form("lngUVGenehmigt") <> "" or Request.Form("lngRGenehmigt") <> "" or Request.Form("lngRKritisch") <> "" or Request.Form("lngErledigt") <> "" or Request.Form("strRollenName") <> "" or Request.Form("strUserVName") <> "" or Request.Form("strITBAccount") <> "" or Request.Form("strITBAccount") <> "") then
strUserName = Request.Form("strUserName")
strUserVName = Request.Form("strUserVName")
strUserAccount = Request.Form("strUserAccount")
strITBAccount = Request.Form("strITBAccount")
strRollenName = Request.Form("strRollenName")
lngErledigt = Request.Form("lngErledigt")
lngRKritisch = Request.Form("lngRKritisch")
lngRGenehmigt = Request.Form("lngRGenehmigt")
lngUVGenehmigt = Request.Form("lngUVGenehmigt")
%>
<%
else
Response.Write ""
end if
%>
</BODY>
</HTML>
ausgabe.asp (Hier muss das Popup hinzugefügt werden):
Code:
<%
dim conn,rs
dim strUserName, strUserVName, strUserAccount, strITBAccount, strRollenName, lngErledigt, lngRKritisch, lngRGenehmigt, lngUVGenehmigt
dim SQL
%>
<body bgcolor="#D2D2D2" topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">
<%
if Request.Form("submit") = "Suchen" then 'and (Request.Form("strUserName") <> "" or Request.Form("lngUVGenehmigt") <> "" or Request.Form("lngRGenehmigt") <> "" or Request.Form("lngRKritisch") <> "" or Request.Form("lngErledigt") <> "" or Request.Form("strRollenName") <> "" or Request.Form("strUserVName") <> "" or Request.Form("strITBAccount") <> "" or Request.Form("strITBAccount") <> "") then
strUserName = Request.Form("strUserName")
strUserVName = Request.Form("strUserVName")
strUserAccount = Request.Form("strUserAccount")
strITBAccount = Request.Form("strITBAccount")
strRollenName = Request.Form("strRollenName")
lngErledigt = Request.Form("lngErledigt")
lngRKritisch = Request.Form("lngRKritisch")
lngRGenehmigt = Request.Form("lngRGenehmigt")
lngUVGenehmigt = Request.Form("lngUVGenehmigt")
%>
<!--#include file="config/connection.asp"-->
<%
' --- angeben der Tabelle und Felder
SQL = "select * from tblWebRoleOrder where strUserName like '" & strUserName & "%' and strUserVName like '"& strUserVName &"%' and strRollenName like '"& strRollenName &"%' and strUserAccount like '"& strUserAccount &"%' and strITBAccount like '"& strITBAccount &"%'"
IF not lngErledigt="3" then
SQL = SQL & " and lngErledigt = " & lngErledigt & " "
ELSE
END IF
IF not lngRKritisch="3" then
SQL = SQL & " and lngRKRitisch = " & lngRKritisch & " "
ELSE
END IF
IF not lngRGenehmigt="3" then
SQL = SQL & " and lngRGenehmigt = " & lngRGenehmigt & " "
ELSE
END IF
IF not lngUVGenehmigt="3" then
SQL = SQL & " and lngUVGenehmigt = " & lngUVGenehmigt & " "
ELSE
END IF
Set rs = Server.CreateObject("ADODB.Recordset")
' --- abfrage starten
rs.Open SQL, conn
' --- ausgabe der daten
%>
<table width="985" align="center" border="0" cellspacing="3" cellpadding="0" bgcolor="#E7E7E7">
<tr>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Nachname</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Vorname</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>User Account</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Rolle</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Erledigt</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Kritisch</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Genehmigt Rollen- ver.</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Genehmigt User- ver.</b></td>
<td align="center" ><b>Beauftragte/r</b></td>
</tr>
<tr>
<td align="center" colspan="9" height="2" background="images/underline.gif"></td>
</tr>
<%
Do until rs.EOF
%> <tr><td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs.Fields("strUserName") %> </td> <%
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs.Fields("strUserVName") %> </td> <%
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs.Fields("strUserAccount") %> </td> <%
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs.Fields("strRollenName") %> </td> <%
lngerledigt=rs.Fields("lngerledigt")
if lngerledigt="0" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif" width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif" width="16" height="16"></td>
<%
end if
lngRKritisch=rs.Fields("lngRKritisch")
if lngRKritisch="0" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif" width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif" width="16" height="16"></td>
<%
end if
lngRgenehmigt=rs.Fields("lngRGenehmigt")
if lngRGenehmigt="1" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif" width="16" height="16"></td>
<%
elseif lngRGenehmigt="2" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif" width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF">Keine Notw.</td>
<%
end if
lnguvgenehmigt=rs.Fields("lngUVGenehmigt")
if lngUVGenehmigt="1" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif" width="16" height="16"></td>
<%
elseif lngUVGenehmigt="2" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif" width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF">Keine Notw.</td>
<%
end if
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs.Fields("strITBAccount") %> </td></tr> <%
rs.MoveNext
Loop
%>
</table>
<%
'rs, schliesen und auf Nothing stellen
rs.Close
set rs = nothing
%>
<!--#include file="config/closeconnection.asp"-->
<%
else
Response.Write "Bitte geben Sie eine Suchbedingung ein"
end if
%>
</BODY>
</HTML>
Geändert von The Motrix (19.09.2003 um 11:14 Uhr).
|
|
|
|
19.09.2003, 12:29
|
#2
|
|
TP-Member
Registriert seit: Sep 2003
|
Ich würde mich freuen wenn mir jemand helfen könnte ^^;
|
|
|
|
|
19.09.2003, 18:06
|
#3
|
|
TP-Supporter
Registriert seit: Apr 2001
|
Hi,
der 1. Teil ist das Suchformular, der 2. Teil das Ergebnis.
Du möchtest jetzt, dass die Werte per Request.Form() aus Deinem Suchformular über window.open, also in einem Popup, dargestellt werden?
Das kannst Du mit JavaScript onsubmit="window.open()" machen. Wichtig hierbei ist die Angabe des Targets, sonst kommen die Werte nicht an.
bsp.
Code:
<%
[...]
Response.write "<form method=""post"" name=""FormAn"" action=""ergebnis.asp""" & vbnewline & _
"onsubmit=""window.open('','Fenster1','width=610,height=400');""" & vbnewline & _
"target=""Fenster1"">" & vbnewline & _
"<input name=""suche"" type=""text"" id=""suche"">" & vbnewline & _
"<input type=""submit"" name=""Submit"" value=""Abschicken"">" & vbnewline & _
"</form>"
[...]
%>
__________________
Liebe Grüße, die Judi!
Geändert von Judi (19.09.2003 um 22:59 Uhr).
|
|
|
|
|
24.09.2003, 10:50
|
#4
|
|
TP-Member
Registriert seit: Sep 2003
|
hi Judi, naja, nicht ganz, ich hab dann im Ergebniss Formular eine ausgabe die wie eine tabelle stehen .. dort stehen name, rolle etc. und ganz hinten in jeder zeile soll ein details button sein, womit ich dann ein "popup" öffne wo dann von dieser ZEile (die id der zeile) alles was in der Datenbank steht ausgibt, das problem ist auch das ich nicht weiß wie ich die id übergeb bzw, angeb das es die id von dieser zeile ist....
das was du geschrieben hast hat ja nicht ganz den erwünschten effekt, würde mich freuen wenn du oder jemand anders mir das sagen könnte wie ichd as mach , so das es wie ich es oben geschrieben hab funktioniert... ?!?...
MfG
Mo
|
|
|
|
|
24.09.2003, 11:22
|
#5
|
|
TP-Supporter
Registriert seit: Apr 2001
|
Achso, Du willst von der Ausgabe.asp aus ein pop-up öffnen, ist das richtig?
Das machst du im Prinzip genauso
Leg Dir einen Link mit in die Schleife und aktivierst das Popup über onClick.
<a href="javascript :;" onClick="window.open('Detail.asp?detailID=<% = rs("DeineID")%>','Fenster1','width=610,height=400');">Detaillink</a>
Auf Deiner Seite, die über das Pop-up geöffnet wird, selectierst Du den Wert aus dem Request.QueryString("detailID") in Deinem SQL-Statement.
Wenn Du aber unbedingt einen Button verwenden willst, musst Du ein Formular, sh. Code, in die Schleife legen, ein hiddenfeld, wo Du die ID des jeweiligen Datensatzes ausliest und dann das Popup via onsubmit aufrufst. In dem Falle musst Du das Statement auf den Wert von Request.Form("ID") filtern.
__________________
Liebe Grüße, die Judi!
|
|
|
|
|
24.09.2003, 12:22
|
#6
|
|
TP-Member
Registriert seit: Sep 2003
|
Code:
<%
dim conn,rs
dim lngID
dim SQL
lngID = Request.QueryString("lngID")
%>
<body bgcolor="#D2D2D2" topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000">
<!--#include file="config/connection.asp"-->
<%
SQL = "select * from tblWebRoleOrder where lngID like '" & lngID & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
' --- abfrage starten
rs.Open SQL, conn
' --- ausgabe der daten
<table width="985" align="center" border="0" cellspacing="3" cellpadding="0" bgcolor="#E7E7E7">
<tr>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Nachname</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Vorname</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>User Account</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Rolle</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Erledigt</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Kritisch</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Genehmigt Rollen- ver.</b></td>
<td align="center" style="border-right: 2px solid #FFFFFF"><b>Genehmigt User- ver.</b></td>
<td align="center" ><b>Beauftragte/r</b></td>
</tr>
<tr>
<td align="center" colspan="9" height="2" background="images/underline.gif"></td>
</tr>
<%
%> <tr><td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs("strUserName")
%> </td> <%
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs("strUserVName")
%> </td> <%
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs("strUserAccount")
%> </td> <%
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs("strRollenName")
%> </td> <%
if lngerledigt="0" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif"
width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif"
width="16" height="16"></td>
<%
end if
if lngRKritisch="0" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif"
width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif"
width="16" height="16"></td>
<%
end if
if lngRGenehmigt="1" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif"
width="16" height="16"></td>
<%
elseif lngRGenehmigt="2" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif"
width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF">Keine Notw.</td>
<%
end if
if lngUVGenehmigt="1" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/y.gif"
width="16" height="16"></td>
<%
elseif lngUVGenehmigt="2" then
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF"><img border="0" src="images/x.gif"
width="16" height="16"></td>
<%
else
%>
<td align="center" style="border-bottom: 1px solid #FFFFFF">Keine Notw.</td>
<%
end if
%> <td align="center" style="border-bottom: 1px solid #FFFFFF"> <% Response.Write rs("strITBAccount")
%> </td></tr> <%
%>
</table>
<%
'rs, schliesen und auf Nothing stellen
rs.Close
set rs = nothing
%>
<!--#include file="config/closeconnection.asp"-->
Also ich find den fehler nicht ganz ^^; wenn ich bin zu doof oder blind...
Code:
<a href="javascript:;" onClick="window.open('Detail.asp?lngID=<% = rs("lngID") %>','Fenster1','width=610,height=400');">Detaillink</a>
da hab ich eingebaut bei der ausgabe.asp |
|
|
|
|
24.09.2003, 12:36
|
#7
|
|
TP-Supporter
Registriert seit: Apr 2001
|
Hi
und das ist der Code der Seite, die sich im Popup aufrufen soll?
Welcher Fehler?
Warum fragst Du die ID im Statemant mit dem like-Operator ab? Das ist eigentlich serverlastiger als =. Wenn eindeutige Werte zu erwarten sind, sollte man = auch nehmen.
Was ist ingID bzw. was hat es für einen Feldwert? char, varchar, integer? Wenn integer, müssen die Hochkomma weg.
__________________
Liebe Grüße, die Judi!
Geändert von Judi (24.09.2003 um 12:46 Uhr).
|
|
|
|
|
24.09.2003, 12:54
|
#8
|
|
TP-Member
Registriert seit: Sep 2003
|
Daqs ist der Code der seite, naja es kommt ein indirekter Fehler und zwar 500er (expoltrer) das er net angezeigt werden kann *grml*
wie meinst du das anders abfragen? ... ich wüsste jetzt net so genau wie ich das machen sollte...
lngid = long id ...
Gruß Mo
|
|
|
|
|
24.09.2003, 13:13
|
#9
|
|
TP-Supporter
Registriert seit: Apr 2001
|
Also
IngID, nehme ich jetzt mal an, ist ein Feld vom Type integer (numerisch, Zahl). Da müssen im SQL-Statement die Hochkomma vor und nach der Variable weggelassen werden. Im Gegensatz zu einem Feld type text, varchar, char (alphanum.)
Es gibt noch andere Operatoren, außer like. Da gibts das = (gleich, eindeutig, also wenn ein eindeutiger Datensatz selectiert werden soll), in (wenn man mehrere gleiche Datesätze selectieren möchte), <> (ungleich, wenn man alle außer diesen selectieren möchte) ....
Like nutzt man in Verbindung mit Wildcards % vor und hinter der Variablen. Wird eingesetzt, wenn die Datenbank nach einem Zeichensatz oder einer Zeichenfolge durchsucht werden soll. Like ohne Wildcard ist schon gleich =. Es ist aber serverlastiger und was nicht sein muss, muss ja nicht, oder?
Stell die Abfrage mal so:
SQL = "select * from tblWebRoleOrder where lngID = " & lngID & " "
__________________
Liebe Grüße, die Judi!
|
|
|
|
|
24.09.2003, 13:28
|
#10
|
|
TP-Member
Registriert seit: Sep 2003
|
Jo danke, habs hinbekommen *smile* danke ^^
|
|
|
|
|
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
|
|
|
| Themen-Optionen |
Thema durchsuchen |
|
|
|
| Thema bewerten |
|
|
Forumregeln
|
Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
HTML-Code ist aus.
|
|
|
Alle Zeitangaben in WEZ +2. Es ist jetzt 20:46 Uhr.
|
|
