读取数据库
<!--#Include File="Inc/Conn.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改为精华</title>
<link href="css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {
font-size: 14px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<!-- #include file="Head1.asp" -->
<table width="1000" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center">
<tr>
<td>
<table width="980" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="8" colspan="6"></td>
</tr>
<tr>
<td colspan="6" bgcolor="#BFBFBF" align="center" height="25"><span class="STYLE1">修改为精华图片</span></td>
</tr></table>
<%
Dim Action,TitleId,ImageID,score
ImageID=(Request.QueryString("TitleId"))
Set rsw = Server.CreateObject("ADODB.Recordset")
sqlw="select * from Nt_Imgbook" 这里是读取图片的表
rsw.open sqlw,conn,1,3
if not rsw("id")=ImageID then 判断图片的ID是否与request过来图片的id相等 如果相等则显示下表格
%>
<table width="980" border="0" cellspacing="0" cellpadding="0" align="center">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from nt_score" 这个是设为精华表
rs.open sql,conn,1,3
if rs("imageid")=ImageID then 判断精华表里的imageid是否与request过来图片的id相等 如果相等则显示下表格
%>
<%dim rsa,sqla
Set rsa = Server.CreateObject("ADODB.Recordset")
sqla="select * from nt_score where ImageID="&request("titleid")&"" 这里就是读取表里的信息，条件是表里的imageid是否与request过来图片的id相等
rsa.open sqla,conn,1,3
%>
<form action="xjj?Action=jjl" method="post">
<tr>
<td width="316" height="35" align="right">
图片id:
<input name="id1" type="text" size="10" value="<%=rsa("ImageID")%>"/></td>
<td width="136">*图片id不可以改1</td>
<td width="150" height="35" align="right">
张数：<input name="zs2" type="text" size="10" value="<%=request("count")%>"/></td>
<td width="150">*图片张数不可以改1</td>
<td width="134" height="35" align="right">
得分：
<input name="score1" type="text" size="10" value="<%=rsa("score")%>"/></td>
<td width="394">*100分以上为精华图片，如果取消精华的话，填写100以下1</td>
</tr>
<tr>
<td height="28" colspan="6" align="center"><input type="submit" name="Submit" value="提交" /></td>
</tr></form>
<%rsa.movenext
rsa.close
%>
<%else%> 判断精华表里的imageid是否与request过来图片的id相等 如果不相等则显示下表格
<form action="tjj.asp" method="post">
<tr>
<td width="152" height="35" align="right">
图片id:<input name="id2" type="text" size="10" value="<%=request("titleID")%>"/></td>
<td width="150">*图片id不可以改2</td>
<td width="150" height="35" align="right">
张数：<input name="zs2" type="text" size="10" value="<%=request("count")%>"/></td>
<td width="150">*图片张数不可以改2</td>
<td width="160" height="35" align="right">
得分：<input name="score2" type="text" size="10" value=""/></td>
<td width="118">*100分以上为精华图片，如果取消精华的话，填写100以下2</td>
</tr>
<tr>
<td height="28" colspan="6" align="center"><input type="submit" name="Submit" value="提交" /></td>
</tr></form>
<%rs.movenext
end if
rs.close
%>
</table>
<%else%> 如果request过来的id跟图片表不相等则显示
<table width="980" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="8" colspan="6"></td>
</tr>
<tr>
<td colspan="6"align="center" height="25">数据库找不到此图片ID [<a href="index.asp">返回首页</a>]</td>
</tr></table>
<%rsw.movenext
end if
rsw.close
Set rsw=Nothing
%>
</td>
</tr>
</table>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td>
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<!--db-->
<!-- #include file="footer.asp" -->
。。。。
