useraddnews.asp

媒体中国-设计联盟

<% 
'=========================================================
' File: useraddnews.asp
' Version:2.0test
' Date: 2002-12-21
' Script Written by Icyn
'=========================================================
' Copyright (C) 2002,2003 Icyn.Net All rights reserved.
' Web: http://pwc.net,http://bbs.icyn.net,http://icyn.net
' Email: [e-mail],[e-mail]
' QQ:15477885
'=========================================================
 %>
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/char.inc" -->
<%
if request.servervariables("REQUEST_METHOD")<>"POST" then
  response.redirect "index.asp"
  response.end
end if
%>

<%
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where pickuser="&CLng(request.form("username")),conn,1,3
user=request.form("username")
pwd=request.form("userpwd")
if 
 user= rs("pickuser")
  pwd=  rs("pickpwd")
then
  rs("news")=htmlencode2(Trim(request.form("news")))

  rs("ndate")=date()
  rs.update
end if
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>