photoview.asp
上传用户:stone001
上传日期:2016-10-28
资源大小:685k
文件大小:1k
- <!--插入html头部分以及数据库接口-->
- <!--#include file="in_conn.asp"-->
- <body style="font-family: 宋体;font-size: 9pt;line-height: 14pt;color: <% =cotxt %>; background:<% =bg3 %>">
- <!--权限判断-->
- <%
- if u_name="" then
- Response.Redirect "log_err.asp"
- end if
- u_power=conn.Execute("SELECT power FROM tblmates WHERE name='"&u_name&"'",0,1)(0)
- IF u_power=0 THEN
- Response.Redirect "resp.asp?cmd=id_wait"
- END IF
- %>
- <%
- '获取id传值
- dim vid
- IF isNumeric(Request.QueryString("id")) THEN
- vid=CLng(Request.QueryString("id"))
- '找出该照片
- sqlstr="SELECT p_url FROM tblphoto WHERE p_ID="&vid
- rs.open sqlstr,conn,0,1
- if rs.eof AND rs.bof then
- response.Redirect "resp.asp?cmd=phidmiss"
- else
- %>
- <br>
- <table align="center" width="25" height="25" border="0" cellspacing="0" cellpadding="0" class="rdkuang" style="padding:5px;">
- <tr>
- <th width="100%" height="100%" valign="top">
- <img src="<% =rs("p_url") %>" border="0">
- </th>
- </tr>
- </table>
- <% end if
- rs.close
- ELSE
- Response.Redirect "resp.asp"
- END IF
- %>
- <!--插入网站置底-->
- <!--#include file="in_bottom.asp"-->
- </body>
- </html>