Set Conn=Server.CreateObject("ADODB.Connection") //采用ADO方式连接
servername="XINZHI-SERVER" //连接server名
dbname="User_info" //连接数据库
StrConn="Driver={ mysql odbc 3.51 driver}Server=(localhost)DataBase=hrUid=rootPwd=root" //配置驱动
Conn.open strConn //打开连接
if err then //如果连接出错的处理
err.Clear
Set Conn = Nothing
Response.Write "数据库正在调整中,请稍候再试。"
Response.End
end if
<%textarea=Request("textarea")'获取输入框的内容
If inStr(textarea,chr(13)&chr(10))>0 then'判断是否有换行符
textarea=Split(textarea,chr(13)&chr(10), -1, 1)'用换行符把内容分割成数组
For i=0 to UBound(textarea)'循环数组
Conn.Execute "Insert Into [表名] (username,shuju,password) Values ('username值','"&textarea(i)&"','password值')" '写入数据库
Next
End If
%>
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)