正在加载图片...
電子工業出社 <td height=36>input type="text" name="txtUserName/><font face 宋体"size="2")*(名字限制<b>10</b 个字符以内)</font/td < td height="1">密码(可选) (填写密码成为保留用户,名字将被保护)</font <tr> <td width="100% height="l 2>发言内容:</ tr> <td width=100% height=2 colspan="2>textarea name= txtContent rows="12" cols=83">/textarea> < p align=" center">< input type=" submit" value=”留言 /> &nbs <input type="reset"/></p> K/table> 100%> : &nbsl </form> /body> <add record gue.asp源程序〉 < Option Explicit 建立一个到数据源的连接 Dim conndemo ServerI: SERVER=127. 0. 0. 1: DATABASEDemo: UID=chen: PWD=123 et connDemo Server. CreateObject("ADODB Connection connDemo. Open strDSN 建立记录集,对用户进行操作<td height="36"><input type="text" name="txtUserName"/><font face=" 宋体" size="2">*（名字限制 <b>10</b> 个字符以内）</font></td> </tr> <tr> <td height="1">密 码(可选)：</td> <td height="1"> <input type="password" name="pwdPassword"/><font face="宋体" size="2"> （填写密码成为保留用户，名字将被保护）</font> </td> </tr> <tr> <td width="100%" height="1" colspan="2">发言内容： </td> </tr> <tr> <td width="100%" height="2" colspan="2"><textarea name="txtContent" rows="12" cols="83"></textarea> <p align="center"><input type="submit" value="留言 "/> <input type="reset"/></p> </td> </tr> </table> <p style="line-height: 100%"> </p> </form> </body> </html> <add_record_gue.asp 源程序> <% Option Explicit %> <% '建立一个到数据源的连接 Dim strDSN Dim connDemo strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123" Set connDemo = Server.CreateObject("ADODB.Connection") connDemo.Open strDSN '建立记录集，对用户进行操作