gusucode.com > CRM源码带手机版ASP源码程序 > Plugin/Messages/Install.asp
<!--#include file="../../data/conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=GBK" />
<link href="<%=SiteUrl&skinurl%>Style/common.css" rel="stylesheet" type="text/css">
<script language="javascript" src="<%=SiteUrl&skinurl%>Js/Common.js"></script>
</head>
<body>
<style>body{padding:35px 0 48px;}</style>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="top_bg">
<tr>
<td class="top_left td_t_n td_r_n">当前位置：功能插件 > 短信群发 > 安装</td>
<td class="top_right td_t_n td_r_n">
<input type="button" class="button_top_reload" value=" " title="刷新" onClick=window.location.href="javascript:window.location.reload();" />
<input type="button" class="button_top_back" value=" " title="后退" onClick=window.location.href="javascript:history.back();" />
<input type="button" class="button_top_go" value=" " title="前进" onClick=window.location.href="javascript:history.go(1);" />
</td>
</tr>
</table>
<%
a = Trim(Request("a"))
Select Case a
Case "setup01"
Call setup01()
Case "setup02"
Call setup02()
Case Else
Call setup01()
End Select
%>
<%
Sub setup01()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="td_n pd10">
<form name="login" action="?a=setup02" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0" CLASS="table_1">
<col width="100" />
<tr>
<td class="td_l_c title">适用版本</td>
<td class="td_r_l"> EasyCrm 2012 V3.X 商业版</td>
</tr>
<tr>
<td class="td_l_c title">插件简介</td>
<td class="td_r_l">提取联系人手机号，支持多选或外部粘贴，提示已写字数，发送报告</td>
</tr>
<tr>
<td class="td_l_c title td_t_n">其它说明</td>
<td class="td_r_l td_t_n"> 该插件免费提供，与第三方短信平台集成，需购买短信方可使用。</td>
</tr>
<tr>
<td class="td_r_l" colspan=2> <input type="Submit" class="button45" value="安装" /></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end Sub
%>
<%
Sub setup02()
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From Plugin Where pUrl = 'Messages'",conn,1,1
If rs.RecordCount = 1 Then
Response.Write("<script>alert(""该插件已经安装，请勿重复安装！"");location.href='../index.asp' ;</script>")
Else
conn.execute("insert into Plugin(pTitle,pUrl,pAuthor,pVersion,pContent,pTime,pYn) values('短信群发','Messages','易用科技','V2.0','提取联系人手机号，支持多选或外部粘贴，提示已写字数，发送报告','"&now()&"','1')")
if accsql=1 then
conn.execute="create table [Plugin_Messages](mId int identity(1,1) not null primary key, mState nvarchar(255), mContent nvarchar(255), mPhonenum text, mUser nvarchar(255), mTime DATETIME )"
else
conn.execute="create table [Plugin_Messages](mId autoincrement primary key, mState varchar(255), mContent varchar(255), mPhonenum memo, mUser varchar(255), mTime DATETIME )"
end if
End If
rs.Close
Set rs = Nothing
Response.Write("<script>alert(""安装成功！"");</script>")
Response.Write("<script>location.href='../index.asp' ;</script>")
end Sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>