savefav.asp

这是一个文章管理的网页源程序

 
<link rel="stylesheet" href="images/new.css">
<!--#include file=conn.asp--> <%
	dim sql
	dim rs
	dim username
	dim password
    
   if session("admin")<>"" and session("password")<>"" and session("flag")<>"" then
    username=session("admin")
    password=session("password")
   else
	username=replace(trim(request("username")),"'","")
	password=replace(trim(Request("password")),"'","")
    
   end if
    id=request("id")
	set rs=server.createobject("adodb.recordset")
	sql="select * from admin where password='"&password&"' and username='"&username&"'"
    rs.open sql,conn,1,1
   if not(rs.bof and rs.eof) then
 	  rs.close  
      set rs=server.createobject("adodb.recordset")	
	  sql="select * from fav"
      rs.open sql,conn,1,3
      rs.addnew
      rs("user")=username
      rs("artid")=id
      rs.update
      rs.close%>
      <meta http-equiv="refresh" content="1;URL=list.asp?id=<%=id%>">
    <%else
		call Error()
   end if
   
	sub Error()
    	response.write " <br><br><br>"
    	response.write "    <table align='center' width='300' border='1' cellpadding='4' cellspacing='0' bordercolorlight='#0099cc' bordercolordark='#FFFFFF'>"
    	response.write "      <tr bgcolor='#0099cc'> "
    	response.write "        <td colspan='2' height='15'> "
    	response.write "          <div align='center'><font color='#FFFFFF'>操作: 确认身份失败!</font></div>"
    	response.write "        </td>"
    	response.write "      </tr>"
    	response.write "      <tr> "
    	response.write "        <td colspan='2' height='23'> "
    	response.write "          <div align='center'><br><br>"
    	response.write "      您的错误可能是：<br><br><li>用户名或密码错误! </li><br><br><li>未能完成身份确认!</li><br><br>"
    	response.write "        <a href='javascript:onclick=history.go(-1)'>返回</a>"        
    	response.write "        <br><br></div></td>"
    	response.write "      </tr>   </table>" 
	end sub
	
	conn.close
	set rs=nothing
	set conn=nothing

%>