本文是测试性的,可以通过程序直接新建表、创建字段等,但为了简便起见,我们先在万网会员中心,数据库管理里面,创建一个名为Tb_Talking的表,表中新建几个字段,如下图所示
通过FTP工具,在空间新建mytest文件夹,在mytest文件夹下,新建conn.asp和test.asp两个文件。
其中conn.asp文件夹下的内容为:<%Dim Conn,ConnStr,DataServer,DataBase,DataUser,DataPassDataServer = 'xxxxxx' //服务器IPDataBase = 'xxxxxx' //数据库名DataUser = 'xxxxxx' //用户名DataPass = 'xxxxxx' //密码ConnStr='Provider=SQLOLEDB.1;User ID='&DataUser&';Password='&DataPass&';Initial Catalog='&DataBase&';Data Source='&DataServer&''Set conn=Server.CreateObject('ADODB.Connection')conn.ConnectionString=ConnStrconn.Open %>
//test.asp内容<%@LANGUAGE='VBSCRIPT' CODEPAGE='936'%><%Session.CodePage=936%><%Response.Charset='gb2312'%> <% currentTime='¤'&year(Now)&'-'&Month(Now)&'-'&day(Now)&' '&Hour(Now)&':'&Minute(Now)&':'&Second(Now) response.Write currentTime if trim(request('ctype'))='add' then session('say_anything')='' sql='insert into Tb_Talking(Content,Time) values(''&trim(request('say_anything'))&'',''+currentTime+'') ' set rs=conn.execute(sql) end if%>
<%=rl('Content')%> | <%=rl('Time')%> |
<% rl.MoveNext Loop%><%End if%>
test.asp中包含“”,简洁起见,admin.css的内容就不贴出来了。这一语句去掉也可以。查询和插入数据的js语句如下图所示:
最后在地址栏上输入www.域名/mytest/test.asp,结果如图所示