在线问卷调查系统_问卷列表_发送问卷

<%call CheckUserFlag("03")%>

8 问卷管理 -> 发件人设置 | 问卷列表 | 修改密码 | 退出管理

| 发件人邮件设置

<% Dim PageNo Dim mpage Dim startime Dim endtime PageNo = 20 Dim PageNum Dim RCount Dim i Dim sql Dim rs Set ObjDCW = Server.CreateObject("dc_data100_v1_0.C_A_Config") Function OpenDB(DBfile) Set ObjTC_DB = Server.CreateObject("dc_data100_v1_0.C_A_Config") Set DbConn = Server.CreateObject("ADODB.Connection") DbConn.open ObjTC_DB.dbPath(DBfile) End Function dim dbconn openDb DataPathFile %>
邮件编码 | gb2312 *
发送邮件的 SMTP服务器 | * 用来发送邮件的SMTP服务器的域名或IP地址
邮箱账号 | * 注意：这里是填写你的邮箱账号（如key@163.com,帐号则是key）
登录密码 | * 注意：这里是填写你邮箱账号的对应密码，该密码经加密后存放在数据库中
域　　名 | * （如果用"name@domain.com"这样的用户名登录时，请指明domain.com）
所属部门 |
公开程度 | 在部门内公开 在公司内公开

<% Sub CloseDB() DbConn.Close Set DbConn = Nothing End Sub Function RequestText(text) if text<>"" and not IsNull(text) then RequestText=Trim(Replace(text,"'","")) else RequestText="" end if End Function sub out(text) response.write "
" & text & "[返回]
" response.end end sub Sub CheckPage() rs.PageSize = PageNo mpage=rs.pagecount page=Request("p") If page <> "" and IsNumeric(page) Then PageNum = CINT(page) Else PageNum = 1 End If End Sub %>