📄 indexphoto.asp

📁 这是一个文章管理的网页源程序
💻 ASP
字号:
<%Option Explicit%>
<!--#include file="data.inc"-->
<!--#include file="data1.inc"-->
<%
dim name,rs,r
name=Session.Contents("Name")
if name<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * From pic Where name='" & session.contents("Name") & "'",conn,0,1

Set r = Server.CreateObject("ADODB.Recordset")
r.open "Select * From password Where name='" & session.contents("Name") & "'",dbc,0,1
%>
<script language="JavaScript">
<!--
function ende1()
{
window.open("sendphoto.asp","Fenster","width=380,height=350,screenX=40,screenY=0,scrollbars=no,toolbar=no,menubar=no,resizable=no,locationbar=no,hotkeys=no");
}


//-->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!-- A{TEXT-DECORATION:none} 
A:link{COLOR:#444444;} 
A:visited{COLOR:#444444;} 
A:active{COLOR:#444444;} 
A:hover{COLOR:#ff0080;text-decoration:underline} .p9{font-size:9pt;} td{font-size:9pt;} .p12{font-size:12pt} .p7{font-size:8pt}--></style>

</head>
<body bgcolor="#FFFFFF" background="../../buluo/CLUB/JCASP2.GIF">
<div align="center"> <center> <table border="0" width="57" cellspacing="0" cellpadding="0"> 
<tr> <td width="112" valign="top"> <%if rs.eof then
          if r("sex")="男" then %> <div align="center"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> 
<tr> <td width="30%" valign="top" align="center" height="0"> <p align="center"><img border="0" src="../IMAGES/033.gif"></p><table border="0" width="100%" cellspacing="0" cellpadding="0" height="1"> 
<tr> <td width="100%" align="center" height="1"> <a href="#" onclick="ende1()" > 
上传相片</a></td></tr> <tr> <td width="100%" align="center" height="21"><a href="indexphoto.asp" > 
上传后请点刷新</a></td></tr> </table> </td></tr> </table></div><table border="0" width="100%" cellspacing="0" cellpadding="0"> 
<tr> <% else %> <td width="31%" valign="top" background="../CLUB/JCASP2.GIF"> <p align="center"> <img border="0" src="../IMAGES/037.gif"> 
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="1"> <tr> 
<td width="100%" height="1"> <p align="center"> <a href="#" onclick="ende1()" > 
上传相片</a></td></tr> <tr> <td width="100%" height="1"> <p align="center"><a href="indexphoto.asp"> 
上传后请点刷新</a> </td></tr> </table>　 </td></tr> <tr> <%end if
                 else %> <td width="31%" valign="top"> <p align="center"><img border="0" src="displayphoto.asp?id=<%=rs("id")%>" width="110" height="75"><br> 
<a href="delphoto.asp?name=<%=Session.Contents("Name")%>">删除照片</a> </p></td></tr> 
</table><%rs.close:set rs=nothing%> <%end if%> </td></tr> </table></center></div><center> 
<%else%><table border="0" width="13%" cellspacing="0" cellpadding="0"> <tr> <td width="30%" valign="top"> 
<p align="center"><img border="0" src="../../buluo/CLUB/IMAGE/PHOTO.GIF"></p></td></tr> 
<tr> <td width="30%" valign="top"> <p align="center"> </td></tr> </table></center><%end if%> 
</body>           
           
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -