📄 wyly_wyly_1.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<%
	' 将数据中的单引号改成两个单引号，并且在前后加上单引号
	Function SqlStr( data )
	   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
	End Function
	'与数据库建立连接
	set conn=server.createobject("adodb.connection")
		conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
	
	 '加入日志操作=====================================
	user_ip=Request.ServerVariables("REMOTE_HOST")
		sql = "Insert Into day (ip,user,thing) Values( "
		sql = sql & SqlStr(user_ip) & ", "
		sql = sql & SqlStr(session("username")) & ", "
		sql = sql & SqlStr("发表留言") & ")"
		'发送sql指令，加入信息
		conn.Execute sql
	'===================================================
	if request("username")="大家" then
	SET rs=CONN.EXECUTE("SELECT user FROM quanxian")
	do while not rs.eof
		'添加一条当前rs所指的用户
		set rs1=server.createobject("adodb.recordset")
		rs1.open "bbs",conn,1,3
		rs1.addnew
		rs1("name")=session("username")
		rs1("title")=request("title")
		rs1("neirong")=request("reirong")
		rs1("form")=rs("user")
		rs1.update

		rs.movenext
	loop
else
	set rs1=server.createobject("adodb.recordset")
	rs1.open "bbs",conn,1,3

	rs1.addnew
	rs1("name")=session("username")
	rs1("title")=request("title")
	rs1("neirong")=request("reirong")
	rs1("form")=request("username")
	rs1.update
end if
set conn=nothing

response.redirect("wyly_wyly_2.asp")
%>

<html><script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -