upload.asp

来自「功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私」· ASP 代码 · 共 37 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本
HYname=Request("HYname")
  set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan where HYname='"&HYname&"'"
  rs.open SQL,conn,1,1
  if not rs.eof then
    Response.Write("HYname="&rs("HYname")&"&")
	Response.Write("HYsex="&rs("HYsex")&"&")
	Response.Write("HYhome="&rs("HYhome")&"&")
	Response.Write("HYhomeRadem="&rs("HYhomeRadem")&"&")
	Response.Write("HYQQ="&rs("HYQQ")&"&")
	Response.Write("HYemail="&rs("HYemail")&"&")
	Response.Write("diary_title="&rs("diary_title")&"&")
	Response.Write("diary_birthday="&rs("diary_birthday")&"&")
	Response.Write("diary_foreword="&rs("diary_foreword")&"&")
    Response.Write("UP_diary=1&")	
	rs.close
    set rs=Nothing
    CloseDataConn()
	Response.End()
  else
    Response.Write("UP_diary=0")
	rs.close
    set rs=Nothing
  end if
%>